Алг Произведение цифр (арг цел Num, рез цел P) нач цел i, j, k, l Num := abs(Num) | abs - абсолютная величина i := div(Num, 1000) | i - первая цифра | div - частное от деления с остатком j := mod(div(Num, 100), 10) | j - вторая цифра | mod - остаток от деления с остатком k := mod(div(Num, 10), 10) | k - третья цифра l := mod(Num, 10) | l - четвертая цифра P := i * j * k * l; окончание. Вот так
