Определить вид треугольника при условии его существования (в ABC паскале)

Var a, b, c: real;

s: string;

begin

write ('длины сторон через пробел: ') ;

readln (a, b, c) ;

if (a+b>c) and (a+c>b) and (c+b>a) then

begin

if (sqr (a) + sqr (b) = sqr (c)) or

(sqr (a) + sqr (c) = sqr (b)) or

(sqr (b) + sqr (c) = sqr (a)) then

s:='треугольник прямоугольный'

else

if (sqr (a) + sqr (b) >sqr (c)) and

(sqr (b) + sqr (c) >sqr (a)) and

(sqr (a) + sqr (c) >sqr (b)) then

s:='треугольник остроугольный'

else s:='треугольник тупоугольный';

writeln (s) ;

end

else writeln ('треугольник составить нельзя') ;

end.