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