A.1 Pascal Source Code

  program test;

  function mul (a,b : integer): integer;
  begin
    mul := a * b;
  end;

  procedure proca (     a,b : integer;
                    VAR c,d : integer;
                        e,f : integer);
  begin
      c := a + b;
      d := mul(a,b);
  end;

  procedure one;
  var a,b,c,d,e,f : integer;
  begin
      a := 5;
      b := 10;
      proca (a,b,c,d,e,f);
      e := c + d;
      f := e;
  end;

  begin
      one;
  end.