Сосавить программу, которая формирует массив…

Program Program1; vara: array [1… 8] of integer; i: integer; s: string; beginrandomize; writeln ('Исходный массив: '); for i: =1 to 8 dobegina[i]: =random (7); writeln ('a[',i,']=',a[i]); end; for i: =1 to 8 doif a[i] mod 2=0 thena[i]: =a[i]*3elsea[i]: =a[i]+2; writeln; writeln ('Преобразованный массив: '); for i: =1 to 8 dowriteln ('a[',i,']=',a[i]); end.