Сформируйте массив из 10 элементов…

vara: array[1… 10] of intenger; b: intenger; Beginb: =1; For i: =1 to 10 do begina[i]: =i+i*i; end; For i: =1 to 5 do begin b: =b*a[i*2]; end; For i: =1 to 5 begin Writeln (',a[i*2]); end; Writeln ('произведение элементов массива, стоящих на четных местах=',b); End.