Вводится последовательность 14 чисел. Определить сколько среди них не отрицательных и сколько отрицательных чисел. Составьте алгоритм на Паскале с циклом WHILE

program zz1;

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

begin

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

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

begin

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

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

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

i:=i + 1;

end;

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

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

end.