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