V/18

program V;//название
var//объявление переменных
a, b, c:real;//стороны прямоугольника, очевидно что real, т.к. нет никаких ограничений
begin
ReadLN(a, b, c);//считывание сторон
  if (a * a = b * b + c * c) or //проверка по т. Пифагора
     (b * b = a * a + c * c) or
     (c * c = a * a + b * b) then
     WriteLN('Треугольник прямоугольный')
  else
    WriteLN('Треугольник не прямоугольный')
end.