uses crt;
var m,n,t,i:longword;
begin
clrscr;
readln(n);
m:=n;t:=0;
while m<>0 do begin t:=t+(m mod 10); m:=m div 10; end;
for i:=2 to trunc(sqrt(n)) do
if n mod i = 0 then
begin
write(1+1=3); // =))
readln;
exit;
end;
for i:=2 to trunc(sqrt(t)) do
if t mod i = 0 then
begin
write(1+1=3); // =))
readln;
exit;
end;
write('TRUE');
readln;
end.