Найти среднее арифметическое отрицательных чисел, введенных с клавиатуры, используя ИМЕННО операторы do-loop while, do-loop until. Всего ввести N различных чисел. (VBA)

Const n =5;
var
  a:array[1..n] of integer;
  i,max:integer;
begin
  writeln('Введите 1 элемент массива');
  readln(a[1]); max:=a[1];
  for i:=2 to n do begin
    writeln('Введите ', i,' элемент массива');
    readln(a[i]);
    if a[i]>max then max := a[i];
  end;
  writeln('Максимальный элемент массива равен ',max);
end.

Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56

1)
2 Мбайта =2*2^(23) бита ;        16=2^4;
2*2^(23)  :  2^4 = 2^(20) =1048576 символов в сообщении
2)
3*40*60=7200 количество символов
14400*2^3  : 7200 = 16 бит для одного символа
3)
10 кбайт =10*2^13 бит =5*2^14 бит
8*32*40 =2^3 * 2^5 *2^3 *5 =5*2^11
(5*2^14) : (5*2^11) = 2^3 =8 бит для одного символа
2^8 =256 допустимых символов в алфавите
4)
2*32*40 =2* 2^5* 2^3* 5 =5*2^9 символов на листе, на двух страницах
8 Кбайт =8*2^13 бит =2^16 бит
     2^16 :2^3 =2^13 символов в тексте
2^13 : (5*2^9)=2^4 : 5 =3,2 = 4 листа