Помогите Решить информатику (Паскаль)

Четные числа делит на два, а нечетные - умножается на три;

uses crt; var a: array [1 ... 15] of integer; i: integer; begin writeln ('Дан массив') ; for i:=1 to 15 do begin a[i]:=random (41) - 20; write (a[i]:5) ; end; writeln; writeln ('Преобразованный массив') ; for i:=1 to 15 do if a[i] mod 2=0 then write (a[i]/2:5:1) else write (a[i]*3:5) ; end.