Хозяйственная деятельности человека и ИИ?

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3

Во первых вычислим сколько битов имеет рукопись автора для этого 16•64•1024•2048=147483648 битов. нам известно что в одном байте 8 битов. из этого следует 147483648:8=131072 байта. в мегабайте 1000000 байтов. из этого 131072:1000000=0,131072 мегабайта рукописи. а еще нам известно что рукопись имеет 2650 иллюстраций по 6 мегабайткаждая.из этого выходит 2650•6=15900 мегабайт
для того чтобы узнать сколько ушло памяти нафлешке 15900+0,131072= 15900,131072≈15900,1311
в одном гиге 1000 мегабайт
15900,1311:1000= 15,9001311 гигабайт. в общем флеш карта заполнена этой рукописью