{Даны 3 точки x1,y1,x2,y2,x3,y3 Составить программу для опред. площади и периметра треуг. используя процедуру для опред расстояния между двумя точками}

uses crt;
var x1,x2,x3,y1,y2,y3,s,p,
    a,b,c : real;
procedure rasst( a1,b1,a2,b2 : real;
var r : real );
begin
 r:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
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);
     rasst(x1,y1,x2,y2,a);
     rasst(x2,y2,x3,y3,b);
     rasst(x3,y3,x1,y1,c);
     p:=a+b+c;
     p:=p/2;
     s:=sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('s=',s);
  readln;
 end.