Определение площадей 3-х треугольников по их координатам с использованием функции

program square_treugolnik;

{$APPTYPE CONSOLE}

uses

  SysUtils;

function square(x1, y1, x2, y2, x3, y3: integer):real;

var

a1, a2, a3, p: real;

begin

a1:= sqrt(sqr(x2-x1) + sqr(y2-y1));

a2:= sqrt(sqr(x3-x2) + sqr(y3-y2));

a3:= sqrt(sqr(x1-x3) + sqr(y1-y3));

p:= (a1 + a2 + a3) / 2;

square:= sqrt(p * (p-a1) * (p-a2) * (p-a3));

end;

var

xu, xw, xc, yu, yw, yc: array[1..3] of integer;

temp: real;

i: integer;

begin

randomize;

  for i:= 1 to 3 do

  begin

  xu[i]:= random(20) - 10;

  yu[i]:= random(20) - 10;

  xw[i]:= random(20) - 10;

  yw[i]:= random(20) - 10;

  xc[i]:= random(20) - 10;

  yc[i]:= random(20) - 10;

  end;

  for i:= 1 to 3 do

  begin

  writeln('Koordinaty treugolnika ', i, ': ', xu[i]:4, yu[i]:4, xw[i]:4, yw[i]:4, xc[i]:4, yc[i]:4);

  temp:= square(xu[i], yu[i], xw[i], yw[i], xc[i], yc[i]);

  writeln('Square of treugolnik ', i:3, ' = ', temp:10:2);

  writeln;

  end;

readln;

end.