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