program n_1;
var a,b,c,S:real;
begin
writeln('Введите длины сторон : a, b, c');
readln(a,b,c);
S:=(a+b+c)/2;
writeln('Площадь равна = ', sqrt(p*(p-a)*(p-b)*(p-c)));
end.
program n_1;
var a,b,c,S:real;
begin
writeln('Введите длины сторон : a, b, c');
readln(a,b,c);
S:=(a+b+c)/2;
writeln('Площадь равна = ', sqrt(p*(p-a)*(p-b)*(p-c)));
end.