recursion.pl

来自「Win32 Console下C++实现的PL/0语言编译程序」· PL 代码 · 共 22 行

CONST a = 10;
var b,c;
procedure p;
  procedure q;
    begin
      read(b);
      c:=c+1;
      write(c);
      if b#0 then
        call p
    end;
  begin
    read(b);
    c:=c+1;
    write(c);
    if b#0 then
      call q
  end;
begin
  c:=0;
  call p
end.