Усемиклассника имеется коллекция из 500 календариков. сколько бит потребуется для ему для присвоения каждому календарику индивидуального кода

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

readln;

end.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

необходимо (но не достаточно).