Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n - PascalABC.NET

Формулировка задачи:

Здравствуйте! Уважаемые программисты, помогите пожалуйста решить задачку! Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, т.е. все такие тройки натуральных чисел a, b, c, что a2+b2 =c2 (a<=b<=c<=n). Заранее спасибо!

Решение задачи: «Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n»

Листинг программы

var n: integer;
begin
write('n='); readln(n);
for var c:=1 to n do
  for var b:=1 to c do
    for var a:=1 to b do
      if sqr(a)+sqr(b)=sqr(c) then writeln(sqr(a),'+',sqr(b),'=',sqr(c));
end.

Объяснение кода листинга программы

В начале программы объявляется переменная n типа integer, которая будет использоваться для ограничения размера чисел в тройках.
Затем пользователю предлагается ввести значение переменной n.
Далее начинается цикл, который будет выполняться n раз.
Внутри цикла начинается вложенный цикл, который будет выполняться от 1 до текущего значения переменной c.
Внутри вложенного цикла начинается еще один вложенный цикл, который будет выполняться от 1 до текущего значения переменной b.
Внутри вложенного цикла начинается еще один вложенный цикл, который будет выполняться от 1 до текущего значения переменной a.
Внутри вложенного цикла проверяется условие sqr(a)+sqr(b)=sqr(c). Если это условие выполняется, то выводится сообщение, содержащее значения переменных a, b и c.
По завершении вложенных циклов, программа завершается.