8 lines
106 B
ObjectPascal
8 lines
106 B
ObjectPascal
begin
|
|
var b:=new byte[255];
|
|
b[0]:=255;
|
|
var i:integer;
|
|
i:=b[0];
|
|
writeln(i, ' ', b[0]);
|
|
|
|
end. |