Задача №906 Произведение цифр

Задано трёхзначное число. Определить произведение его цифр.

Входные данные

Одно трёхзначное положительное число n.

Выходные данные

Вывести произведение цифр числа n.

Решение

var x, p: integer;
begin
    readln(x);
    p := 1;
    while x > 0 do
    begin
        p := p * (x mod 10);
        x := x div 10;
    end;
    writeln(p);
end.