дано четырехзначное число отыскать творение его цифр

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

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