Помогите пожалуйста решить! В массиве В содержится 20 элементов. На четных местах…

vara: array [1… 20] of integer; i,max: integer; beginmax: =0; for i: =1 to 20 dobeginif i mod 2=0 then a[i]: =random (50)+50else a[i]: =random (50)+150; if a[i]>max then max: =a[i]; write (a[i]: 4); end; writeln; writeln ('max=',max); end.