Создание политик для традиционного (или исходящего) NAT

1) Объем видеопамяти I=k*i, где k- количество точек изображения, i- глубина цвета. 
Глубина цвета i=㏒₂N, где N- количество цветов палитры.
При N=16 i=㏒₂16=4 бит
тогда объем памяти I=(800*600)*4= 1920000 бит

При N=512 i=㏒₂512= 9 бит
Количество точек изображения k=I/i= 1920000/9= 213333 точек
Отсюда размер изображения может быть например: 
 600х355 точек

2) Определим глубину цвета:
i= ㏒₂128= 7 бит
Тогда количество точек изображения k=I/i= (2*1024*8)/7= 2340 точек

3)Объем памяти звукового файла I=t*i*n*k, где t- время звукозаписи (c.), i - глубина кодирования звука (бит), n- частота дискретизации (Гц), k- количество каналов звукозаписи.

I=(3*60)*16*44000*2= 253440000 бит = 31680000 байт= 30937,5 Кбайт= 30,21 Мбайт

4) Из формулы предыдущей задачи:

n=I/t*i*k
Количество каналов записи в условии не указано, принимаем звук моно, k=1

Частота дискретизации n=(1,3*1024*1024*8)/(2*60)*8*1=11360 Гц= 11,36 кГц

Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14);    i : integer;    count : integer = 0;begin
    // с возможно вам нужно с обычного for    for i in a do begin        if ((i div 7) < 0 ) then begin            count := count + 1;        end;    end;    writeln('(for) количество подходящих чисел: ', count);        // с количество подходящих чисел: ', count);        // с тут главное правльно поставить условие после until    i := 0;    count := 0;    repeat        if ((a[i] div 7) < 0) then        begin            count := count + 1;        end;        i := i + 1;    until i = length(a);    writeln('(repeat until) количество подходящих чисел: ', count);    end.