С клавиатуры вводятся числа , пока не будет введено отрицательное число. Подсчитать...

Question

С клавиатуры вводятся числа , пока не будет введено отрицательное число. Подсчитать количество чисел. (решение ниже)
Var
a,b: Integer;
BEGIN
While b>=0 do
begin
Readln(b);
Inc(a );
end;
Writeln('Кол-во введенных чисел : ',a-1);
END.
Объясните что к чему? Откуда a и b? Ведь обрабатывается одновременно только 1 вводимое число, затем 2-е и т.д.

Answer 1

B  это числа, которые вводятся с клавиатуры до тех пор, пока не будет введено отрицат. число
а - это счетчик этих неотрицат. чисел (т.е. нулей и положит. чисел), формат команды inc (a) показывает, что происходит увеличение переменной а ровно на единицу.