Program chuongtrinh;
Uses crt;
Var n , i :Integer;
Begin
clrscr;
Write(‘Nhap vao gia tri cua n:’);
Readln(n);
if n<=1 then writeln('n da cho khong la so nguyen to') else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(' n da cho la so nguyen to'); else
writeln('n da cho khong la so nguyen to');
end;
readln
end.