программа в delphi , надо получить все пифагоровы тройки

[luxeon001]

Дано натуральное число n . Получить все пифагоровы тройки натуральных чисел , каждое из которых не превосходит n , т.е. все такие тройки натуральных чисел a ,b , c, что a^2+b^2=c^2 (a<= b<= c<= n)

[rubius2008]

...
for a:=1 to n do
  for b:=1 to n do 
    for c:=1 to n do if a*a+b*b=c*c then writeln(a,'^2+',b,'^2=',c,'^2');
...