Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
Считаем символы, их 46 (включая знаки препинания и пробелы).
Каждый символ занимает 8 бит. Объем равен
46*8 = 368 бит. Не совпадает.
Очевидно, что в строке ошибка, вместо "поди" - "пойди". Так символов 47.
47*8 = 376 бит.
Ответ В.
1) 1.Y 2.X 3.X 4.W
2) a - не верно, б - верно
3) В троичной системе счисления (2001₃ = 55)
2 вида камней черный и белый. В бусах 10 камней. значит 2^10=1024 разных бусин