Дано четырехзначное число найти произведение его цифр

Какое 4-значное число?

Алг Произведение цифр (арг цел 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; о кончание. Вот так