var a:integer;
procedure t0;
begin
writeln('t0: a=',a);
a:=2;
writeln('t0: a=',a);
end;
procedure t1(a:integer);
begin
writeln('t1: a=',a);
a:=3;
writeln('t1: a=',a);
end;
procedure t2(var a:integer);
begin
writeln('t2: a=',a);
a:=4;
writeln('t2: a=',a);
end;
procedure t3;
var a:integer;
begin
writeln('t3: a=',a);
a:=5;
writeln('t3: a=',a);
end;
begin
a:=1;
writeln('mp: a=',a);
t0;
writeln('mp: a=',a);
t1(a);
writeln('mp: a=',a);
t2(a);
writeln('mp: a=',a);
t3;
writeln('mp: a=',a);
end.
|
|