70 банкетов!!!!Даны три числа, найти существование треугольника, если да то определить

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 lt; b+c) and (b lt; a+c) and (c lt; a+b)  

 then

 begin

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

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

 end

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

end.

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