Program Chisla;
Uses Crt;
var p,c:real;
begin
clrscr;
write('Введите числа конец ввода 0:');
p:=1;
repeat
readln(c);
if (c=0) then break else p:=p*c;
until (c=0);
writeln('Произведение чисел= ',p);
readkey;
end.
Program Chisla;
Uses Crt;
var p,c:real;
begin
clrscr;
write('Введите числа конец ввода 0:');
p:=1;
repeat
readln(c);
if (c=0) then break
else p:=p*c;
until (c=0);
writeln('Произведение чисел= ',p);
readkey;
end.