program test5;
var a,b:integer;
procedure five(var a,b:integer);extern;

begin
five(a,b);
end.