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

[unFair]

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

[virt]

Код

p:=1;
read(n);
while n > 0 do
  begin
     p:=p * (n mod 10);
     n:=n div 10;
  end;