без массива определить сколько положительных чисел встречается до первого отрицательного числа

[narco3]

Как сделать задачу без использования массива?
Есть последовательность из n чисел.Нужно определить сколько положительных чисел встречается до первого отрицательного числа

[Alex11223]

c:=0;
for i:=1 to n do
begin
   readln(a);
   if a>=0 then c:=c+1
   else 
      break;
end;