Program cx2016p2;
var a, b, c: integer;
procedure suan(var x:integer; y:integer);
var m, n: integer;
begin
m:=x*y; x:=x+1;
y:=y+10; n:=x+y;
writeln(＇x=,x,＇y=＇,y,＇m=＇,m,＇n=＇,n);
end;
begin
a:=1; b:=2;
suan(a,b);
suan(a,b);
end.
输出：x=2 y=12 m=2 n=14|x=3 y=12 m=4 n=15