ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/proc1.pcat

Text File | 2005-10-24 | 157b | 12 lines

program is
  procedure f(x:integer) is
    begin
      write(x);
      if x = 0 then return;
      else f(x-1);
      end;
    end;
  begin
    f(5);
  end;