Простая задача на линейный алгоритм! Срочно!, Помогите написать программу Опции

[unFair]

Которая звучит след. образом: "Найдите произведение чисел 4х значного числа" Тоесть, по-идее, если задается число 1234, то 1*2*3*4=24... Кто может, напишите плз... Нужна срочно, завтра последний день когда я могу её здать, иначе - крендык мне... Делается вероятно через mod, но точно как я не знаю, иначе бы давно написал

[unFair]

Текс... Поспешил я тему создавать... Извините, если что.
ПС: Код задачи:

Код

Program Name;
Uses Crt;
Var Number,      {заданное число}
   i, j, k, l,  {цифры числа}
   P : Integer; {произведение цифр}
BEGIN
 ClrScr;
 Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
 Number:=Abs(Number);
 Write( 'Цифры числа ' , Number , ' : ' );
 i := Number div 1000; Write(i:3);       {первая цифра}
 j := Number div 100 mod 10; Write(j:3); {вторая цифра}
 k := Number div 10 mod 10; Write(k:3);  {третья цифра}
 l := Number mod 10; WriteLn(l:3);       {четвертая цифра}
 P := i * j * k * l;
 WriteLn( 'О т в е т : произведение цифр равно ' , P );
 ReadLn
END.

Сообщение отредактировано: volvo - 28.12.2004 22:03