Даны 3 числа , существует ли треугольник с такими длинами сторон

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.