Даны три положительных числа. Определить, можно ли построить треугольник с длинами сторон, равным этим числам. Если можно, то ответить на вопрос, является ли он остро угольным — Pascal(Паскаль)

program prog;
var a,b,c,n,s: byte;
begin
writeln('Введите стороны треугольника');
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin 
writeln('треугольник с такими сторонами существует');
if (sqr(a)+sqr(b)>=sqr(c)) and (sqr(a)+sqr(c)>sqr(b)) and ( sqr(b)+sqr(c)>sqr(a)) then 
writeln('треугольник является остроугольным')
else writeln('треугольник не является остроугольным');
end
else writeln('треугольник с такими сторонами не существует');
end.