Turbo Pascal задача

program example1; uses crt; var a: array[1..10] of integer; b: array[1..10] of integer; i:integer; begin clrscr; randomize; writeln; for i:=1 to 10 do begin a[ I ]:=random(9); if odd(a[ I ]) then b[ I ]:=2*a[ I ] else b[ I ]:=a[ I ]; write(a[ I ],); end; writeln; writeln; for i:=1 to 10 do write(b[ I ],); writeln; readkey end. Массив а заполнен случайными числами от 0 до 9; odd(x) - стандартная функция, возвращает истину, если аргумент нечётный.