PAscal

program kolo_ta_kvadrat;

uses CRT;
Var x, c1,c2,c3,p:integer;
BEGIN
read(x);
c1:=x div 100;
c2:=x div 10 mod 10;
c3:=x mod 10;
p:=c1*c2*c3;
if x mod p =0 then writeln('yes') else writeln('no');
END.