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

Вот процедура нахождения произведения цифр четырехзначного числа, написанная на языке Алгол-60

realprocedure prodig (n) ;

value n; integer n;

begininteger i, p;

integer procedure mod (a, b) ;

value a, b; integer a, b;

begin

mod:=a-a:b*b

end mod;

p:=1;

for i:=1 step 1 until 4 do

begin

p:=p*mod (n, 10) ;

n:=n:10;

end;

prodig4:=p

end prodig4;