Дан линейный одномерный массив, заданный случайным образом, содержащий…

Program z1; var a, i, z, x, y, l: integer; mas: array [1… 10] of integer; beginfor l: =1 to 10 doreadln (mas[l]); i: =0; for a: =1 to 10 doif mas[a]>1 then i: =i+1; if i > 0 then beginz: =0; for x: =1 to 10 do z: =z+mas[x]; writeln (z); endelse beginy: =1; for x: =1 to 10 do y: =y*mas[x]; writeln (y); end; end.