procedure test(w : word);

  begin
  end;

begin
   test(1234);
end.