написать программу ** Паскале: "ввод с клавиатуры последовательности чисел заканчивается...

Question

написать программу на Паскале:

"ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит"

Answer 1

program p;

var a,b: integer;

begin

a:=1;

repeat begin

writeln('Введите число: ');

readln(b); if b<0 then a:=a*b;</p>

until b=0; writeln('Ответ:',a);

readln; end.