var v,r:text;
n:longint;

function kt(n:longint):boolean;
var i,s:longint;
begin
s:=0;
 for i:=1 to n do
  if n mod i=0 then s:=s+1;
 if s=2 then kt:=true else kt:=false;
end;

begin
assign(v,'SIEUNGTO.inp');
reset(v);
readln(v,n);
assign(r,'SIEUNGTO.out');
rewrite(r);
while n<>0 do
begin
 if kt(n)=false then
 begin
  write(r,'0');
  break;
 end
 else n:=n div 10;
end;
if n=0 then write(r,'1');
close(r);
end.

uses

var   n: longint; 

f:text; 

kq: boolean;

function ktnt(n: longint):boolean;

begin  

    if n<2 then ktnt:=false;

      else

        d:=0;

           for i:=2 to n do

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

        if d=2 then ktnt:=true

             else

                knt:=false

end;

begin

    assign(f,:d\pascal\sieunguyento.inp);

    reset(f);

    readln(f,n);

    close(f);

       kq:= true;

         while n<>0 do

            begin  

                kq:= kq and ktnt(n);  

                n:= n div 10;  

          end;

            assign (f,d:\pascal\sieunguyento.out);

            rewrite(f);

            if kq then write(f,'1') else write(f,'0');

    close(f);

end.