{$R+}
var w:word;
    s:Shortint;
begin
  w := s;
end.