ПРЕОБРАЗУЙТЕ ВЫРАЖЕНИЯ​

                                                        начало                                                                                                                                                                                                                                                                         ввод n                                                                                                                                                                                                                                                                            s=   *n                                                                                                                                                                                                                                           вывод s                                                                                                                                 конец

Uses crt; const n=10; var a: array [1..n] of integer;     x,min,pr: integer; begin       pr: =1;       for x: =1 to n do       begin           read(a[x]);           if x mod 2=0 then  pr: =pr*a[x];       end;       min: =a[1];       for x: =1 to n do           if a[x]< min then min: =a[x];       writeln('произведение четных элементов:   ',pr,'; минимальный элемент:   ',min); end.