{programmer:mogtaba amirzade 
url http:\\www.ifjam.com
}
program p20(input,output); {20}
var
{
programmer: mojtaba amirzadeh date:1382/08/27 time:20,45'
this program give one namber and answer to this statemeant true or false?
this namber is
}
n,k:integer;
p:boolean;
begin {begin program}
write('enter one namber>');
readln(n);
p:=true;
k:=2;
while k*k<=n do
begin {begin while}
if n mod k=0 then
begin {begin if}
p:=false
end; {end if}
k:=k+1;
end; {end while}
writeln('is ',p);
readln
end. {end program}