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;
bein
readln(n); conta(n); writeln(n);
end.