Составить программу для последовательного произведения вводимых с клавиатур целых чисел.Предусмотреть выход из произведения при вводе нуля.

var a,b,c:integer;beginwriteln('введите число');readln(a);c:=1;while (a<>0) dobeginc:=c*a;readln(a);end;writeln(c);end.