{ Составить программу для определения расстояния от точки (x3;y3) до прямой проходящей через точки (x1;y1),(x2;y2) }

uses crt;
var x1,x2,x3,y1,y2,
y3,a,b,c,d,t : real;
begin
   clrscr;
   write('x1=');readln(x1);
   write('y1=');readln(y1);
   write('x2=');readln(x2);
   write('y2=');readln(y2);
   write('x3=');readln(x3);
   write('y3=');readln(y3);
    a:=y2-y1;
    b:=x1-x2;
    c:=-x1*(y2-y1)+y1*(x2-x1);
    t:=sqrt(a*a+b*b);
    d:=abs((a*x3+b*y3+c)/t);
   write('расстояние =',d);
   readln;
end.