Ответ:
program multiple;
var
N, P: Real;
begin
P := 1;
WriteLn ('Введете числа: ');
repeat
ReadLn (N);
if N <> 0 then
P := P * N;
until N = 0;
WriteLn ('Произведение = ', P :15 :5);
ReadLn;
end.
1000;
4000;
500;
40;
9;
Рада помочь))))
.не достаточно данных