Составить паскаль программу для произведения цифр заданного четырёх знасного числа.

Var
pr, num: Integer;
begin
WriteLn('Введите число: ');
ReadLn(num);
pr := 1;  
while num > 0 do begin
pr := pr * (num mod 10);
num := num div 10;
end;
WriteLn('Произведение чисел = ', pr);
ReadLn
end.