ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!!

Написать программу в Паскале

1. Заданы стороны треугольника. Проверить является ли он прямоугольным

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

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

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

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

У меня баллов больше нет(

Или Вы надеетесь, что я буду решение писать в комментарии? Это запрещено Правилами, в комментарии может быть только информация, относящаяся к данному заданию или решению.

Баллов нет - это Ваша проблема. Халявы тут тоже нет, каждый должен сервису что-то отдать, чтобы получить взамен. Решите в любом предмете задания для любого класса, наберите баллы.

Спасибо, могли бы просто нет сказать

Обычно пользователи просто "Нет" не понимают. Приходится объяснять, что есть ПРАВИЛА, которые они почему-то не читают, хотя при регистрацию соглашаются выполнять.