Дано: for i:= 28 downto 7 do

i изменяется от ?
до ?
с шагом ?

Прлсти но мне баллы очень нужны

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

writeln('a[',i,']=',a[i]);

readln;

end.