Задача на паскале Задан массив А размерности N случайным образом

const n=10; var a,b: array of integer; i: integer; beginfor i: =1 to n do begin a[i]: =random (20) -10; write (a[i]: 4); end; for i: =1 to n do if a[i] mod 2=0 then b[i]: =a[i] div 2 else b[i]: =b[i]; writeln; for i: =1 to n do write (b[i]: 4); end.