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

Program Program1; vari: integer; a: array [1… 10] of integer; beginrandomize; writeln; writeln ('Массив до преобразования: '); for i: =1 to 10 dobegina[i]: =random (8); write (a[i],', '); end; for i: =1 to 10 doif a[i] mod 2=0 thena[i]: =a[i]+3elsea[i]: =a[i]*4; writeln; writeln ('Массив после преобразования: '); for i: =1 to 10 dowrite (a[i],', '); end.