pascal中的勾股数

program gougu;
var
i,a,b,c,d:integer;
begin
d:=0;
for a:=1 to 2000 do
for b:=1 to 2000 do
for c:=1 to 2000 do
if (a*a+b*b=c*c) and (a<c) and (b<c) and (c<2000)
then
begin
d:=d+1;
write(a:5,b:5,c:5);
if (d mod 6=0) then writeln;
readln;
end;
end.

345 6810 91215...

program gougu;
var
i,a,b,c,d:integer;
begin
d:=0;
for a:=1 to 2000 do
for b:=a+1 to 2000 do
for c:=b+1 to 2000 do
if (a*a+b*b=c*c) then
begin
d:=d+1;
write(a:5,b:5,c:5);
if (d mod 6=0) then writeln;
end;
end.
时间省