var
   p : procedure(w : word);

begin
   p(1234);
end.