помогите задачу разобрать

[Настаська]

1 задача: Напишите программу вывода на экран всех натуральных чисел, не превосходящих заданное число, которые можно представить в виде суммы квадратов двух чисел. Например
13=(2*2)+(3*3).

Решение:

Program n1;
var
n, m : integer;
i, j : integer;

begin
вводим числа с проверкой}
repeat
Write('Vvedite N (1..32000) > ');
ReadLn(n);
WriteLn('Naideno');

until (n >= 1) and (n <= 32000); {проверяем ввод}

for i := 0 to n do
begin
if i * i > n then break; {если квадрат первого числа больше n то смысла просматривать дальше нет}
for j := i to n do
begin
if i*i + j*j > n then break; {если сумма квадратов больше n – то перебирать jсмысла нет}
if i*i + j*j = n then writeln(i, ' * ', i, ' + ', j, ' * ', j, ' = ', n);
end;
end;
readln;

end.

Где подчёркнуто не могу понять что за "найдено" ?? оно нужно разве? и ещё не пойму ограничения N (1..32000)

[alex_fcsm]

1)У вас n - integer, поэтому и ограничения
2) Writeln - действительно нужно писать, когда найдено разложение

[Настаська]

Спасиба!