uses crt;
var n, i, k, n1, n2: longint;
function snt(n:longint):longint;
begin
 for i:=1 to n-1 do
  begin
  if (n mod i = 0) then
   n:=1;
  if n mod i <> 0 then
   n:=2;
  if n=2 then n:=1;
  end;
end;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  n1:=n;
  k:=1;
  while n>0 do
   begin
    n:=n1 mod 10;
    n1:=n1 div 10;
    snt(n);
    if (n=2) and (k=1) then k:=1;
    if (n=1) then k:=2;
   end;
    if k=1 then
     writeln ('day la 1 sieu so nguyen to')
    else
     writeln ('ko phai');
 readln;
end.

program so_nguyen_to;

Uses crt;

Var

          n:longint;

function NT(x:longint):boolean;

begin

         NT:=true;

         If x<2 then NT:=false else

         Begin

                  i:=2;

                   while n mod i<>0 do i:=i+1;

                   If i=n then NT:=true else NT:=false;

        End;

End;

Function SNT(a:longint):boolean;

Var

          d,so:longint;

Begin

          SNT:=true;

          if NT(a) then

          Begin

                   D:=1; so:=0;

                   while a<>0 do

                   Begin

                           inc(so); a:=a div 10; if NT(a) then inc(d);

                   End;

                   If d=so then SNT:=true else SNT:=false;

          End else SNT:=false;

end;

Begin

          clrscr;

          write('Nhap so muon kiem tra: '); readln(n);

          If SNT(n) then write(n,' la so sieu nguyen to') else write(n,' khong la so sieu nguyen to');

          Readln;

End.