;; example where parameter passing is interesting

procedure p(x,y: integer);
begin
  x:= x+1;
  y:= y+1;
end;

begin 
  a:= 1;
  p(a,a)
end;


;; another interesting example


var i : integer;
    a : array[1..10] of integer;

procedure p(x: integer);
begin
  i:= i+1;
  x:= x+1;
end;

begin
  i:= 1;
  a[1]:= 1;
  a[2]:= 2;
  p(a[i]);
end;