) var i,n:integer; a,b,p:real;
begin
p:=1;
read(b); read(n);
for i:=1 to n do
begin
read(a);
if (a>=0)and(a<=b) then p:=p*a;
end;
writeln(p:1:1);
end.

прнннр1    2   07.04.2022 00:31    0