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

Program Frank; const n=15; Type mas=array[1… n] of integer; var a: mas; i: integer; beginfor i: =1 to n do begina[i]: =random (8); write (',a[i]); end; for i: =1 to n do beginif a[i] mod 2=0 then a[i]: =a[i]+1else a[i]: =a[i]*2; write (' Получили ',a[i]); end; end.end.