program Teste;
var a, b: integer;
  procedure SomaUm (x: integer; var y: integer);
  begin
    x := x + 1;
    y := y + 1;
    writeln('Procedimento SomaUm:', x, y);
  end;
begin { Programa principal }
  a := 0;  b := 0;
  SomaUm (a,b);
  writeln('Programa principal:', a, b);
end.