Uses Crt;
const N=11;
Var ar: array [1..N] of integer;
        s,u: integer;
begin
ClrScr;
Randomize;
for s:=1 to N do ar[s] := random(25);
u:=round((N+1)/2);
         for s:=u downto 1 do
             begin
                  writeln(' ',2*s-1,' : ',ar[2*s-1]);
             end;
readln;
end.

new LL[MAX_PLAYERS];
for(new i = 0; i < MAX_VEHICLES; i++) LL[i] = CreateVehicle(...); // kak tolko i == MAX_PLAYERS - crash

new Test;
new A[4] = {45,34,23,90};
// запись в переменную
// просто так
Test |= A[0]; // 0byteofvar
Test |= A[1] << 8; // 1byteofvar
Test |= A[2] << 16; // 2byteofvar
Test |= A[3] << 24; // 3byteofvar
// циклом
for(new i=0; i<4; i++){
     Test |= A[i] << (i * 8); //i.byteofvar
}
// извлечение данных
// просто так
printf("0 - %d, 1 - %d, 2 - %d, 3 - %d",Test & 0xFF, (Test & 0xFF00) >> 8, (Test & 0xFF0000) >> 16, (Test & 0xFF000000) >> 24);
// циклом
for(new i=0; i<4; i++){
        printf(" %d - %d", i, (Test & (0xFF << i*8)) >> i*8);
}