Простое задание!Разработать логическую структуру!

Звук:
44100 отсчетов в секунду. Значит за 16 секунд = 44100*16=705600 отсчетов. Каждый отсчет 2 байта. Значит всего байт 705600*2=1411200
Видео:
25 кадров в секунду и всего 16 секунд. Всего = 25*16=400 кадров.

Каждый пиксель 24 бита RGB = 3 байта.
Каждый кадр 1280х1024 пикселя. Всего пикселей в кадре = 1310720.
Размер одного кадра 1310720*3 = 3932160 байт.

Объём видео = 3932160 байт/кадр * 400 кадров = 1572864000 байт

Общий объём = видео + звук = 1572864000 + 1411200 = 1574275200 байт. Примерно 1.466 ГБайт.

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45