Дано описан е массива mas: array [-22..0] of integer. Сколько элементов содержит данный массив?

Есть формула объёма видеопамяти она равна

V=M×N×a 

a - это глубина цвета, она равна K=

K - это отображаемые цвета

M - это кол-во горизонтальных точек

N - это кол-во вертикальных точек

И так, найдём K, подставив цифры

K=16 777 216 = 

Значит a=24

Теперь всё подставим в формулу.

V=1024×768×24 это мы получим кол-во бит

Но лучше сразу перевести в Мб, переведя биты в байты (поделив на 8, байты в КилоБайты делив на 1024 и Кб в Мб делив еще на 1024)

V=

1024 сокращается получаем

V=

8 и 768 сокращаются

V= 

24 и 1024 можно сократить на 4

V= 

6 и 256 еще сократить можно на 2

V= 

Думаю хватит сокращений, теперь просто посчитаем 

V=  = 2,25 Мб

В программе определяется максимальное значение в массиве Dat и номер элемента, имеющего это максимальное значение. В терминах задачи - определяется максимальное количество самолетов и число, когда было отправлено это максимальное количество самолетов.
Значение переменной m после завершения цикла будет = 6, а значение переменной day будет = 10. На экран будет выведено значение 10.
Начальные присваивания:
day:=1; m := Dat[1]; 
Затем в цикле элементы массива (начиная со второго) сравниваются с текущим значением переменной m (Dat[k] >= m). Если это условие выполняется, то значение переменных m и day меняются. Таким образом, после проверки всех элементов массива в переменной m будет записано максимальное значение (точнее - последнее максимальное, так как знак сравнения >=), а в переменной day - номер элемента массива, имеющего это максимальное значение.