Построить последовательность всех пар натуральных чисел по условию - PascalABC.NET

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

Дано число N. Построить последовательность всех пар натуральных чисел x,y, таких, что x2+y2=N. Пары упорядочивать по возрастанию x. Пары, отличающиеся тем, что x и y поменяны местами, считаются разными.

Решение задачи: «Построить последовательность всех пар натуральных чисел по условию»

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

For x:=1 to N do
 For y:=1 to N do
   If sqr(x)+sqr(y)=N then Writeln(x,' ',y);

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

В данном коде реализован алгоритм поиска всех пар натуральных чисел, сумма квадратов которых равна заданному числу N.

Создаются две переменные: x и y, которые будут использоваться в цикле. Начальное значение x равно 1, а y также равно 1.
Запускается двойной цикл, который будет выполняться от 1 до N.
Внутри цикла проверяется условие: является ли сумма квадратов чисел x и y равной N. Если это условие выполняется, то выводится значение x и y.
После завершения циклов программа заканчивается.