Напишите программу для вычисления отдельно суммы положительных и суммы отрицательных чисел для любых 20 введенных с клавиатуры вещественных чисел, использую а) Оператор цикла while; б) Оператор цикла repeat; в) оператор цикла for

Const   max=24;
var     M:array[1..max] of integer;
        i,j,num:byte;
        X:integer;
        
procedure readArray();
var     i:byte;
begin
  Write('Введите длину массива M');
  Readln(num);
  for i:=1 to num do begin
    Write('M[',i,']=');
    Readln(M[i]);
  end;
  Writeln();
end;
        
begin
  readArray();

  Writeln('Задача: Найти количество элементов, модуль которых меньше X');
  Write('Введите X=');
  Readln(X);
 
  j:=0;
  for i:=1 to num do
    if Abs(M[i]) < X then
      j:=j+1;
      
  Writeln();
  Writeln(j, ' элементов, модуль которых меньше ',X);
end.
       

Систе́мное програ́ммное обеспе́чение — комплекс программ, которые обеспечивают управление компонентами компьютерной системы, такими как процессор, оперативная память, устройства ввода-вывода, сетевое оборудование, выступая как «межслойный интерфейс», с одной стороны которого аппаратура, а с другой — приложения пользователя.

Антивирус выступает "межслойным интерфейсом" между железом и приложениями? Нет. Архиватор? Нет. Мультимедиа проигрыватели? Нет.
ответ: Антивирусы, архиваторы, мультимедиа проигрыватели - прикладное ПО.