procedure p(var w:word);
begin
end;

var
  i : smallint;
begin
  p(word(i));
end.