Даны 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.