Program for_11;    
uses crt;    
var i,k,n,z,nz,nk:longint;    
begin    
clrscr;    
write('кол-во бактерий:');readln(n);    
write('кол-во тактов времени:');readln(k);    
z:=0;    
for i:=1 to k do    
begin    
nz:=0;    
nk:=0;    
nz:=nz+z;    
nk:=nk+z;    
nz:=nz+n;    
n:=nk;    
z:=nz;    
end;    
n:=z+n;    
writeln('Число бактерий=',n);    
readln;    
end.

program cikl_6;
   uses crt;
var k,s:real;
      n,i:integer;
begin
   clrscr;
   writeln('Vvedite kol-vo vvodimix chisel');
   readln(n);
    for i:=1 to n do
     begin
      writeln('Vvedite ',i,' chislo');
      readln(k);
      s:=s+k;
     end;
    writeln('Srednee arifmeticheskoe=',s/n:5:2);
   readkey;
end.