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.