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

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. 

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)