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

Text File | 2005-10-24 | 244b | 14 lines

program is
   var a,b : integer := 0;
   procedure f (c : integer; d : integer) is
     var e,f : integer := 4;
     var g : integer := 5;
     begin
       write(a, b, c, d, e, f, g);
     end;
   begin
     write (a,b);
     f(2,3);
   end;