program raf105;

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

begin

write('Введите длины трёх сторон: ');

readln(a,b,c);

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

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

if (a < b+c) and (b < a+c) and (c < a+b)  

 then

 begin

   writeln ('Треугольник существует.');

   writeln ('Периметр треугольника: ',s);

 end

 else writeln ('Треугольник не существует.');

end.

Программа написана на языке PascalABC.NET