var a:array[1..30] of real;
i: integer;
p:real;
begin
p:=1;
for i:=1 to 30 do
readln(a[i]);
p:=p*a[i];
writeln(p);
end.
Объяснение:
