{簡單的過程調用，測試變參的傳遞}
program pp
var   integer  v1;
char  c;

procedure f();
begin
    v1 :=2
end

procedure t1();
var  integer v1;
begin
    v1 :=1
end

begin
  read(v1);
  t1();
  write(v1);
  f();
  write(v1)
end.