Составьте программу, которая запоняет массив a[1…

Uses crt; const n=10; var a: array[1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (10); write (a[i],'); end; writeln; for i: =1 to n dobeginif (a[i] mod 2<>0) then a[i]: =a[i]*3; if (a[i] mod 2=0) then a[i]: =0; write (a[i],'); end; end.