cubes

program cubes;
var n,b:integer;
i,j:integer;
x:array [1..60] of int64;
begin
readln (n);
b:=0;
for i:=1 to n do readln (x[i]);
for i:=1 to n do
begin
for j:=2 to x[i]-1 do
begin
if (x[i] mod j)=0 then b:=b+1;
end;
if (x[i]=1) then b:=0;
if (x[i]=2) then b:=0;
if (b=0) then writeln ('NE')
else
writeln ('DA');
b:=0;
end;
readln;
end.
ti is my code can anyone take a look and say what's don't work

It should be x[i], not x.

hm, seems this forum doesnt accept char '[' and ']'.

Wrong thing about your code is that your variables are integer, they should be longint. But even then, if number is 10^12, then longint wont be enough in the
"for j:=2 to x-1 do"
you should write "for j:=2 to trunc(sqrt(x[i])) do" instead