{ %FAIL }

var
  i : longint;
  j : word;

begin
  j:=5;
  byte(i):=j;
end.