Определить вид треугольника при условии его существования (в 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.