program hello;
uses crt;
var n:longint;
function nt(a:longint):boolean;
var i:longint;
begin
nt:=true;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then nt:=false;
end;
function tong(a:longint):longint;
begin
tong:=0;
repeat
inc(tong,a mod 10);
a:=a div 10;
until a=0;
end;
begin
clrscr;
write('Nhap mot so: ');readln(n);
writeln((nt(n))and(nt(tong(n))));
readln
end.