var c, d: integer;

procedure Q(x: integer; var y: integer);
begin

  x := x + 2;
  y := x + 1
end;


begin

    c := 2;
    d := 0;
    Q(c, d);
    write (c, ' ',d);

  readln();
end.