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

Text File | 2005-10-24 | 243b | 13 lines

program is
  procedure f(x : integer) : integer is
    begin
      return x + 10;
    end;
  procedure h(x : integer; z: integer) : integer is
    begin
      return x + z;
    end;
  begin
    write (h(f(10), h(f (20), f(30))));
  end;