program lab_5;
var
x1,y1,x2,y2,x3,y3,s:real;
//функция
function proizvedenie(var a,b,c,d:real):real;
begin
  proizvedenie:=(a-b)*(c-d);
end;
//программа
Begin
  writeln('Введите значения координат вершин треугольника: ');
  writeln('x1,y1');
  read(x1,y1);
  writeln('x2,y2');
  read(x2,y2);
  writeln('x3,y3');
  read(x3,y3);
  s:=0.5* abs(proizvedenie(x1,x3,y2,y3)-proizvedenie(x2,x3,y1,y3));
  if s=0 then
    writeln('Данные вершины не образуют треугольник')
  else
    writeln('Площадь треугольника с данными вершинами равна ',s);
End.