begin var b:=new byte[255]; b[0]:=255; var i:integer; i:=b[0]; writeln(i, ' ', b[0]); end.