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

Вот как она записывается на языке Паскаль:Var Chislo, Proizv: integer; begin Proizv:=1; write(\'Число: \'); readln(Chislo); while Chislo > 0 do begin Proizv:=Proizv*(Chislo mod 10); Chislo:=Chislo div 10; end;writeln(\'Произведение цифр числа: \', Proizv);end.