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

[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" тоже выводит что в последовательности нет элементов!!!
ПОМОГИТЕ ПЛИЗ!!!

[-Федосеев Павел-]

if b<>1 then writeln('Произведение положительных чисел последовательности = ',b)
else writeln('В последовательности кроме нуля нет элементов');

Ну, действительно, почему для последовательности 1 0, с произведением равным 1 получается такой ответ?