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.
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.