Определить количество отрицательных и количество положительных вещественных чисел - Pascal

Даны натуральное число n и целые числа a1, a2,..., an. Определить количество отрицательных и количество положительных вещественных чисел

Листинг программы

begin
    WriteLn('neg=', 0);
    WriteLn('pos=', 0);
end.

Объяснение кода листинга программы

Объявляется начало программы.
Печатается строка neg=0 с помощью функции WriteLn. Это означает, что в данный момент количество отрицательных чисел равно 0.
Печатается строка pos=0 с помощью функции WriteLn. Это означает, что в данный момент количество положительных чисел также равно 0.
Завершение программы.