program test;

procedure byref(var x : Integer);
begin
  Inc(x);
end;

type PInteger = ^Integer;

procedure byptr(x : PInteger);
begin
  if x <> nil then Inc(x^);
end;

var x : Integer = 0;

begin
  writeln(x);
  byref(x);
  writeln(x);
  byptr(@x);
  writeln(x);
end.