var
a,b:real;
begin
a:=1;
b:=1;
while a<>0 do
write('Vvedite otricatelnoe 4islo: ');
readln(a);
if a<0 then b:=b*a;
end;
writeln('Proizvedenie otricatelnykh 4isel ravno ',b:5:3);
readln;
end.
Объяснение:
var
a,b:real;
begin
a:=1;
b:=1;
while a<>0 do
begin
write('Vvedite otricatelnoe 4islo: ');
readln(a);
if a<0 then b:=b*a;
end;
writeln('Proizvedenie otricatelnykh 4isel ravno ',b:5:3);
readln;
end.
Объяснение: