随便写的哦
1:存在数组中，再倒过来输出
begin
read(i);
while i<>0 do
begin
inc（n);
s[n]:=i;
read(i);
end;
for i:=n downto 1 do writeln(s[i]);
2:
procedure mul(x,n:longint);
begin
  if n=0 then writeln(x)
  else mul(x*n,n-1);
end;

1
program try;
procedure init;
var x:longint;
begin
  read(x);
  if x<>0 then
  begin
    init;
    write(x,' ');
  end;
end;
begin
  init;
end.

2
program try;
var x,n:longint;
function digit(p,q:longint):longint;
begin
  if q>1 then digit:=digit(p*x,q-1)
         else digit:=p;
end;
begin
  readln(x,n);
  writeln(digit(x,n));
end.
本题中n不要太大.