Отметьте все виды файлов, которые можно назвать документами.

var 
a, b: integer;

begin 
write('Введите a: ');   
readln(a);   
write('Введите b: '); 
readln(b); 
var x := Range(a, b); 
writeln('Последовательность: '); 
x.Println; 
writeln('Ср. ариф. неотриц чисел: '); 
writeln(x.Where(x -> x >= 0).Average);
end.


var  a, b,i,s: integer;  k: real;

begin  
write('Введите a: ');    
readln(a);    
write('Введите b: ');  
readln(b); 
writeln('Последовательность: ');  
for i:=a to b do  write(i,' ');
writeln();
s:=0;
for i:=a to b do    
if i>=0 then begin   
s:=s+i;   
k:=k+1;
end;
writeln('Ср. ариф. неотриц чисел: '); 
write(s/k);
end.

60

Объяснение:

1)l=vt(где i-размер,v-скорость,t-время)

пропорция:

(160*1024*8)                  x

       =   ==>(мы все переводим в бит,x-то,что находим)

2048                           768

(160*8)                        x

           =        (1024 сократили с 2048,поэтому внизу 2)

2                                768

160*4                 x

    =          (2 сократили с 8)

1                     768

2)x=160*4*768 бит

3)160*4*768           160*1*768            80*1*768

      =       =     =60 кбайт

   8*1024                 2*1024                1024

(цифра 8-перевод из бит в байты,1024 из байтов в килобайты)