var n,  mult: integer;
begin
    write('Введи нат. число: ');
    readln(n);
  
    mult := 1;
    while n > 0 do begin

        mult := mult * (n mod 10);
        n := n div 10
    end;

    writeln('Ответ', mult);
readln
end.