Вычислить площадь треугольника

var
x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, A, B, C, M, G: integer;
s, GB, BM, MG: real;
begin
writeln ('Введите координаты вершины А');
readln (x1, y1);
writeln ('Введите координаты вершины В');
readln (x2, y2);
writeln ('Введите координаты вершины C');
readln (x3, y3);
writeln ('Введите координаты вершины G');
readln (x4, y4);
writeln ('Введите координаты вершины M');
readln (x5, y5);
writeln ('Координаты вершины А (',x1,',',y1,')');
writeln ('Координаты вершины B (',x2,',',y2,')');
writeln ('Координаты вершины C (',x3,',',y3,')');
writeln ('Координаты вершины G (',x4,',',y4,')');
writeln ('Координаты вершины M (',x5,',',y5,')');
GB:=sqrt(sqr(x4-x2)+sqr(y4-y2));
BM:=sqrt(sqr(x5-x4)+sqr(y5-y4));
MG:=sqrt(sqr(x5-x2)+sqr(y5-y2));
writeln('Стороны треугольника GB=',GB,' cm, BM=',BM,' cm и MG=',MG,' cm');
s:=sqrt(GB*BM*MG);
writeln('Площадь треугольника ',s:2:2);
readln
end.