Если не ошибаюсь, 255, т.к. название - строковый тип
Устройства ввода информации
8 izmerenii * 8bit(informatzia) = 64bit/ 1 deni;
64 dnya * 64 bits = 4096bit = 32468bytes = 32kb
Var
A: array [1..20] of integer;
B, C: array [1..10] of integer;
i, tmp: byte;
begin
for i := 1 to 20 do
begin
A[i] := random(30)+1;
write(A[i]:4);
tmp := tmp + 1;
if i mod 2 <> 0 then C[tmp] := A[i]
else
begin
B[tmp - 1] := A[i];
tmp := tmp - 1;
end;
end;
writeln;
for i := 1 to 10 do write(B[i]:4);
writeln;
for i := 1 to 10 do write(C[i]:4);
end.