Составить и решить на ветвление и цикл

Var  n,otr,pol: real;   begin  read(n);   if n=0 writeln('error') else  repeat do  write(n);   if n mod 2=0 then pol: =pol+1 else otr: =otr+1; read(n);   until n=0;   writeln('otr: ',otr); writeln('otr: ',otr); end. 

игрок мог поставить крестик в любую клетку поля, их 64; по формуле  =n узнаем, какое кол-во информации получил второй игрок:

=64; i=6. ответ: 6 бит