25 1 1 0 0 1
58 1 1 1 0 1 0
11010110 214
<span>11010000 208</span>
Наиболее удобной формой для представления большого количества однотипной информации является ТАБЛИЦА
8бит=1байта
16бит=2байта
8*32*64*2=32768байт переводим в Кбайты 1Кбайт=1024байта
32768/1024=32Кбайт
Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.