Решить информатику (паскаль ) четные числа делит на два , а нечетные -умножается на три;

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.