Написать программу для Паскаля. Даны координаты вершин треугольника АВС. Найти его площадь.

program Triangle;

var X1,X2,X3,Y1,Y2,Y3: real;

   p, a, b, c: real;

begin

   Writeln('Введите координаты точек (X1,Y1), (X2,Y2), (X3,Y3):');

   ReadLn(X1, Y1, X2, Y2, X3, Y3);

   a: = Dlina(X1-X2,Y1-Y2);

   b := Dlina(X1-X3,Y1-Y3);

   c := Dlina(X2-X3,Y2-Y3);

   p := (a+b+c)/2;

   WriteLn('Площадь равна ', sqrt(p*(p-a)*(p-b)*(p-c)));

end;

fucntion Dlina(var x,y:real):real;

begin

  Dlina := sqrt(x*x+y*y);

end.

var a:real; b:real; c:real; x1,x2,x3:integer; y1,y2,y3:integer; p:real; s:real; begin writeln('первые координаты треугольника x '); readln(x1); writeln('вторые координаты треугольгика x '); readln(x2); writeln('третьи координаты треугольгика x '); readln(x3); writeln('четвертые координаты треугольгика y '); readln(y1); writeln('пятые координаты треугольгика y '); readln(y2); writeln('шестые координаты треугольгика y '); readln(y3); a:=sqrt(x2-x1)+ (y2-y1); b:=sqrt(x3-x2)+(y3-y2); c:=sqrt(x3-x1)+(y3-y1); p:=a+b+c; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Периметр = ',p:2:0); writeln('Площадь=',s:1:2); readln; end.