Вводится последовательность 14 чисел.Найти сколько посреди них не отрицательных и сколько

program zz1;

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

begin  

i:=1; // задаем изначальное значение для счетчика цикла

while i lt;= 14 do // организуем цикл пока

begin

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

if a gt; 0 then c:=c + 1; // проверяем, если число положительное, то считаем его

if a lt; 0 then b:=b + 1; // проверяем, если число отрицательное, то считаем его

i:=i + 1;

end;

writeln( количество неотрицательных чисел = , c);  // выводим ответ

write( количество отрицательных чисел = , b);  // выводим ответ

end.