{ %OPT=-vh -Seh -CO  -Cr- }
{ %fail }

var
  B : Byte;
  s: shortint;
begin
  b:=255;
  s:=b;
end.