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

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

real procedure prodig(n);
  value n; integer n;
begin integer 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;