var a,b,c,m:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
 then begin
  // переставляем a, b, c, чтобы получить a>b>c
  if a<b then begin m:=a; a:=b; b:=m; end;
  if b<c then begin m:=b; b:=c; c:=m; end;
  if a<b then begin m:=a; a:=b; b:=m; end;
  //writeln(a,' ',b,' ',c);
  if a*a=b*b+c*c
   then writeln('Треугольник прямоугольный')
   else if a*a<b*b+c*c
    then writeln('Треугольник остроугольный')
    else writeln('Треугольник тупоугольный')
       end
  else writeln('Числа не могут быть сторонами треугольника')
end.

Пример работы программы:
a=3
b=4
c=5
Треугольник прямоугольный