Написать программу на языке паскаль

varM: array[0… 100]of integer; i,k,n: integer; begink: =0randomize; write ('введите кол-во элементов массива'); read (n); for i: =1 to n dobeginM[i]: =random (30); if i mod 2=0 then k: =k+M[i]else write ('Четных элементов нет'); writeln ('Сумма четных элементов', k); end; end.