10 var a,b,c: integer;
20 p,s: real;
30 begin
40 writeln('Введите длины сторон треугольника (a,b,c)');
50 readln(a,b,c);
60 if (a+b>c) then
70 begin
80 p:=(a+b+c)/2;
90 s:=sqrt(p*(p-a)*(p-b)*(p-c));
100 writeln('Да, треугольник с такими сторонами существует.');
110 writeln('S = ',s:0:3);
120 end
130 else
140 writeln('Треугольник с такими сторонами не существует.');
150 end.