Произведение чисел до первого введенного нуля Опции

[Вячеслав Л.]

Бесит уже , помогите найти ошибку. Вроде все правильно, не понимаю, почему не работает. Задание: произведение чисел до первого введенного нуля.

var
S:REAL;
I,N,A:INTEGER;
BEGIN
S:=1;
I:=1;
a:=1;
while a=0 do
begin
READLN(A);
S:=A*s;
I:=I+1;
end;
WRITELN('proizvedenie ravno ',S);
END.

[Вячеслав Л.]

Копипастить - моветон)). Нет большего вреда, чем от него при обучении. Пиши сам ручками, даже если и переписываешь. Научишься на порядок быстрее.

Ладно, буду знать.

Сообщение отредактировано: Вячеслав Людской - 13.10.2009 19:29