for i:=1 to 9999 do for j:=1 to 9999 do for k:=1 to 9999 do for l:=1 to 9999 do a:=trunc(sqrt(trunc(b/c));