var x, y, z:integer;
procedure silly(x:integer;var y:integer);
begin
x:=7;y:=17;z:=18;
writeln(x, ' '，y,' '，z)
end;
begin
x:=1;y:=2;z=3;
silly(x,y);
writeln(x,' ',y,' ',z)
end;
输出：7 17 18 1 17 18