Каждый нечётный элемент массива уменьшить в два раза а каждый чётный увеличить на 5 полученный массив вывести в столбец

Program z1; Var a: array [1 ... 100] of real; i, n:integer; Begin write ('Введите размера массива - ') ; readln (n) ; randomize; for i:=1 to n do begin a[i]:=random (9) - 0; write (a[i],' ') ; end; writeln; writeln; for i:=1 to n do begin if (i mod 2 = 0) then a[i]:=a[i]+5 else a[i]:=a[i]/2; writeln (a[i]) ; end; End.