program Digits;

procedure foo(a: integer);
begin
  if a = 0 then exit
  else
    foo(a div 10);
  Print(a mod 10)
end;

var
  a: integer;

begin
  a := 12345;
  foo(a)
end.