ввести несколько чисел, определить каких чисел больше - положительных или отрицательных

program zz1;

var a, b, n, i, m:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do

begin

read (a); / / вводим число

if a > 0 then b:=b + 1; / / проверяем, если число больше нуля, то считаем

if a < 0 then m:=m + 1; / / проверяем, если число меньше нуля, то считаем

end;

if b > m / / проверяем, если количество положительных больше, то

then write (' больше положительных ') / /выводим один ответ

else write (' больше отрицательных '); / / иначе, выводим другой ответ

end.