Question

Помогите пожалуйста, Срочно!!!

Answer 1

program yrav;
var
xa, xb, xc, ya, yb, yc : integer;
S: real;
begin
writeln('Введите координаты вершин треугольника: ');

  writeln('xa='); readln(xa);
  writeln('ya='); readln(ya);
  writeln('xb='); readln(xb);
  writeln('yb='); readln(yb);
  writeln('xc='); readln(xc);
  writeln('yc='); readln(yc);
    
S:=(abs((xb-xa)*(yc-ya)-(xc-xa)*(yb-ya))/2);

writeln('Площадь треугольника: ', S);
end.