Составить программу с оператором while вводятся 5 чисел.определить,сколько среди них положительных(включая 0) и сколько отрицательных.(числа вводятся в одну переменную в цикле).

Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.