число, как сумма квадратов

[Neitrosha]

найти все натуральные числа, не превосходящие
заданного N и представляемые в виде суммы квадратов 2 каких-либо различных натуральных чисел

[Sibedir]

Всмысле N представляемые в виде суммы?

[Neitrosha]

да, именно так

[Stilet]

Мало что понял, но то что понял вот напишу:

var a,b,n:integer;
begin
 a:=2;b:=3;
 n:=100;
 while n>0 do begin
  if (sqr(a)+Sqr(b))=n then writeln(a:5,b:5);
 end;
 readln;
end.

[Sibedir]

a := 0;
b := 0;
for i := 1 to n-1 do begin
  for j := i to n do begin
    if (sqr(i)+sqr(j))=n begin
      a := i;
      b := j;
      Break;
    end;
  end;
  if a <> 0 then Break;
end;

Вот только не знаю как из второго цикла выйти правильно.