Произведение Чисел В Последовательности

[tolyanl1985]

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

решил так:

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('Произведение положительных чисел последовательности = ',
else writeln('В последовательности кроме нуля нет элементов');
end.

Оказывается неправильно, контрольную вернули! Осталась неделя, полный попенгаген! Помогите братцы!!!
Всё считает, но есть загвоздка когда вводишь последовательность "1 0" пишет ответ "В последовательности нет элементов" В чём ошибка подскажите плиз!!! Заранее огроменное спасибо

 

[nayke]

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

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

end.

 

[rrrFer]

очевидно произведение последовательности из единиц равно 1, поэтому выполнится та ветка:

else writeln('В последовательности кроме нуля нет элементов');

 

[tolyanl1985]

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

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

end.

Огромное Спасибо!!!

 

[tolyanl1985]

а что здесь такое Flag и как работает?