Ошибка в последовательности! Чё то не понимаю!

[tolyanl1985]

Задача № 4
Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причём других равных нулю чисел в последовательности нет. Вычислить произведение положительных чисел этой последовательности.

program Posledovatelnost;
var
  a,b:integer;
begin
  Writeln('Введите через пробел последовательность положительных чисел, окончание ввода "0"');
  read(a);
  b:=1;
  while a<>0 do begin
  if a>=0 then b:=b*a;
   read(a);
  end;
  if b<>1 then writeln('Произведение положительных чисел последовательности = ',b)
  else writeln('В последовательности кроме нуля нет элементов');
end.

единственный минус при вводе последовательности "1 0" тоже выводит что в последовательности нет элементов!!!
ПОМОГИТЕ ПЛИЗ!!!

[BDA]

program Posledovatelnost;

var
  a, b: integer;
  t: boolean;

begin
  t := false;
  Writeln(
    'Введите через пробел последовательность положительных чисел, окончание ввода "0"');
  read(a);
  b := 1;
  while a <> 0 do
  begin
    if a > 0 then
    begin
      b := b * a;
      t := true;
    end;
    read(a);
  end;
  if t then
    Writeln('Произведение положительных чисел последовательности = ', b)
  else
    Writeln('В последовательности кроме нуля нет элементов');
end.

[tolyanl1985]

ОГРОМНОЕ СПАСИБО!!!

А можете пояснить с переменной типа булеан, что именно она делает??? Заранее огромное спасибо

[Stilet]

Это переключатель. Как только встречается первое положительное "а" эта переменка переключается в состояние истины, дабы в конце программы показать что среди введенных чисел были положительные. Анализировать b нельзя. поскольку оно заранее инициализируется положительным числом, поэтому правильные проггеры используют такие булевки в качестве триггера состояния системы для анализа типа "было - не было".

[tolyanl1985]

Спасибо ОГРОМНОЕ!!!