Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  abc
Language: PASCAL
Code:
program HelloWorld;
var
  a,b,c,d,e,f:word;
begin
  for a:=1 to 9000 do
  for b:=1 to 9000 do
  for c:=1 to 9000 do
  for d:=1 to 9000 do
begin
  e:=(4*a*a)+(4*b*b)+(4*c*c)+(4*d*d);
  f:=((a+c)*(a+c))+((a+d)*(a+d))+((b+c)*(b+c))+((b+d)*(b+d));
if e=f then writeln('(',d,')','a=',a,' b=',b,' c=',c,' d=',d);
end;
readln;
end.          
          
Comments: