What cause a compilation error in the code below?
program Nu;
label m;
var num,w:byte; n: int64; i,j,q1,q2: longint;
begin
read(num);
for w:=1 to num do
begin
readln(n); q1:=round(sqrt(n/2)); q2:=round(sqrt(n));
for i:=0 to q1 do
for j:=i to q2 do
if i*i+j*j=n then begin writeln('Yes'); goto m; end
else if i*i+j*j>n then j:=q2;
writeln('No');
m:
end;
end.
I was told it's compiled OK in fp for windows.