Даны положительных числа a,b,c. Проверить могут ли они быть длинами сторон…

program treug; var a,b, с: integer; p,s: real; begin writeln ('введите три положительных числа'); readln (a,b, с); if (а +b>с) and (b+ с>a) and (а + с>Ь) thenbegin p: =1/2*(a+b+c); s: =sqrt (p*(p-a)*(p-b)*(p-c); writeln ('s=',s); else write ('длинами сторон не могут быть'); readln; end.