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