La trasmissione dei valori...

X VALORE
program valore;
var n: integer;
procedure conta(m:integer);
begin
m:=m+1;
writeln(m);
end;
begin
readln(n); conta (n); writeln(n);
end.

X INDIRIZZO

program valore;
var n:integer;
procedure conta(var m:integer);
begin
m:=m+1;
writeln(m);
end;
begin
readln(n); conta(n); writeln(n);
end.