uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

uses crt;
var n:longint;
function NT(a:longint):boolean;
var i,dem:longint;
        begin
         dem:=0;
         i:=1;
         while i<=a do
                begin
                 if(a mod i=0)then inc(dem);
                 inc(i);
                end;
         NT:=dem=2;
        end;
begin
 clrscr;
  write('nhap n:');readln(n);
  if(NT(n))then write('n la so nguyen to')else write('n khong la so nguyen to');
 readln
end.