Solução em Pascal do Problema 18

program triangulo;

var a, b, c, aux : Integer;

begin
 readLn(a,b,c);
 if b>a
  then begin
   aux:=a;
   a:=b;
   b:=aux
  end;
 if c>a
  then begin
   aux:=a;
   a:=c;
   c:=aux
  end;
 if (a*a)=(b*b) + (c*c)
  then writeLn('o triangulo é retangulo');
  else writeLn('o triangulo não é retangulo')
end.