program test;
var u:integer;
procedure zzz(var a:integer);
begin
a:=5;
end;
begin
zzz(u);
end.