program dsa;
var a, proz : integer;
begin
writeln('a = ');
read(a);
if (a mod 10 = 4) then
proz := proz * a;
write(proz);
end.
