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

uses crt;var a: array [1..15] of integer; i: integer;beginwriteln('Дан массив');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.

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.