recursion1.pl

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

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