program Procs(input, output);

  var a: integer;

  procedure print(x: integer);
  begin
    writeln(x)
  end;

  procedure alpha(x: integer);
  begin
    x := x+1;
    print(x);
  end;

  procedure beta(var x: integer);
  begin
    x := x+1;
    print(x);
  end;

  procedure delta(x: integer);
  begin
    alpha(x);
    beta(x);
  end;

  procedure gamma(var x: integer);
  begin
    alpha(x);
    beta(x);
  end;

begin
  a := 0;
  alpha(a);
  print(a);

  a := 0;
  beta(a);
  print(a);

  a := 0;
  delta(a);
  print(a);

  a := 0;
  gamma(a);
  print(a);
end.