uses crt;
var i,N,dem:byte;
begin
Write('Nhap N :');Readln(N);
for i:=1 to N do
if N mod i=0 then dem:=dem+1;
if dem=2 then Write(N,' la so nguyen to')
else Write(N,'khong phai la so nguyen to');
Readln
End.

progra nguyen_to;

uses crt;

var n,i,d:integer;

begin

       clrscr;

       write('Nhap N: ');   readln(n);

       if n<2 then write(n,' khong phai so nguyen to')

       else begin

                     d:=0;

                     for i:=1 to n do

                            if n mod i=0 then d:=d+1;

                     if d=2 then write(n,' la so nguyen to')

                            else write(n,' khong phai so nguyen to');

              end;

       readln;

end.