программированию
треугольника
var x1,x2,x3,y1,y2,y3,a,b,c,po,S:real;
begin
writeln('Введите значения координат x1,x2,x3,y1,y2,y3');
readln(x1,x2,x3,y1,y2,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
po:=(a+b+c)/2;
S:=sqrt(po(po-a)(po-b)*(po-c));
writeln('Площадь треугольника равна ',S);
end.

Ты совсем отбитыи?
program zadacha;
var a,b,c,p,s:real;
begin
writeln('введите a');
readln(a)
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) amd (b>0) and (c>0)then
begin
p:=(a+b+c)/2{не помню,по моему через полупериметр формула герона идёт}
s:=sqrt(p(p-a)(p-b)*(p-c));
writeln('s= ',s:3:2)
end
else
writeln('некорректные данные');
readln
end.