Программа

VAR a,b,c:real; {Длины сторон предполагаемого треугольника}
BEGIN
  Write('Введите a '); {Вывод приглашения}
  ReadLn(a); {Ввод длины}
  Write('Введите b '); {Вывод приглашения}
  ReadLn(b); {Ввод длины}
  Write('Введите c '); {Вывод приглашения}
  ReadLn(c); {Ввод длины}
  a:=a*a; b:=b*b; c:=c*c; {Переопределение длин сторон в квадраты длин для экономии в последующих вычислениях}
  {Вычисление и вывод результата:}
  if (c=a+b) or (b=a+c) or (a=b+c)
  then WriteLn('Введенные числа являются сторонами прямоугольного треугольника')
  else WriteLn('Введенные числа НЕ являются сторонами прямоугольного треугольника')
END.