Нужна с информатикой. треугольник задан координатами своих вершин. программа должна вычислить его площадь, используя подпрограмму вычисления расстояния между двумя точками.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var d: (real,real,real,real)-> real: =           (x1,y1,x2,y2)-> sqrt(sqr(x2-x1)+sqr(y2-y1));   var (x1,y1): =readreal2('введите координаты 1-й точки: ');   var (x2,y2): =readreal2('введите координаты 2-й точки: ');   var (x3,y3): =readreal2('введите координаты 3-й точки: ');   var a: =d(x1,y1,x2,y2);   var b: =d(x2,y2,x3,y3);   var c: =d(x1,y1,x3,y3);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       var p: =(a+b+c)/2;       var s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end. пример введите координаты 1-й точки: -2.5 1.6 введите координаты 2-й точки: 5.2 4 введите координаты 3-й точки: 1 -1 s = 14.21 pascal abc, free pascal var   x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; function d(x1,y1,x2,y2: real): real; begin   d: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin   write('введите координаты 1-й точки: '); read(x1,y1);   write('введите координаты 2-й точки: '); read(x2,y2);   write('введите координаты 3-й точки: '); read(x3,y3);   a: =d(x1,y1,x2,y2);   b: =d(x2,y2,x3,y3);   c: =d(x1,y1,x3,y3);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end. с процедурой: var   x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; procedure d(x1,y1,x2,y2: real; var r: real); begin   r: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin   write('введите координаты 1-й точки: '); read(x1,y1);   write('введите координаты 2-й точки: '); read(x2,y2);   write('введите координаты 3-й точки: '); read(x3,y3);   d(x1,y1,x2,y2,a);   d(x2,y2,x3,y3,b);   d(x1,y1,x3,y3,c);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end.

Элик. мне приснилось что есть такой робот который чувствует и как живой друг или подруга и когда я пришла в школу то узнала что у нас сочинение и записала это и я хочу чтобы это исполнилось