program nguyen_to;
uses crt;
var t,i:byte;
n:array[1..100] of longint;
{---Ham-nguyen-to---}
function ktnt(k:longint):boolean;
var r:longint;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
exit(true);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap t: '); readln(t);
for i:=1 to t do
begin
write('Nhap so thu ',i,': '); readln(N[i]);
end;
for i:=1 to t do
if ktnt(n[i]) then writeln(1) else writeln(0);
readln;
end.