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

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