ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!!Написать программу в Паскале 1. Заданы стороны треугольника.

В прямоугольном треугольнике обязана производиться аксиома Пифагора. Найдем самую длинноватую строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел либо Enter стороны:');
  if agt;c then Swap(a,c);
  if bgt;c then Swap(b,c);
  if c*c=a*a+b*b then Writeln('Треугольник прямоугольный')
  else Writeln('Треугольник не прямоугольный')
end.

Пример
Введите через пробел либо Enter стороны: 6 8 10
Треугольник прямоугольный