Ответ:

Объяснение:

var  

a, b, c,p,s:real;

begin

p:=0;s:=0;

writeln('Введите стороны треугольника через пробел');

readln (a,b,c);

if (a+b>c) and (a+c>b) and (b+c>a) then  

begin

writeln('Треугольник со сторонами ', a,' ',b,' ',c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь треугольника = ',s:6:2);

end

else writeln('Треугольника со сторонами ',a,',',b,',',c,'не существует');

readln;

end.