Ответ:

ar a,b,c, sq:real;

function polup(p:real):real

var y:real;

begin

y:=(a+b+c)/2

polup:=y;

end;

 writeln('Введи длины сторон a, b и c');

 readln(a,b,c);

sq:=polup(a,b,c)

 writeln('Площадь этого треугольника = ', sqrt(sq*(sq-a)*(sq-b)*(sq-c)));

end.