СРОЧНО!! ПОМОГИТЕ!!задача по паскалю15 случайных чисел [13;72]- все числа стоящие на четных местах и делящиеся на 5 заменить нулями.- числа на нечетных местах кратные 3 заменить на -1- остальные заменить 1

vari:integer;a: array[1..15] of integer;begin    randomize;    for i := 1 to 15 do begin        a[i] := random (60) + 13;        write (a[i]:5)    end;    for i := 1 to 15 do begin        if ((i mod 2) = 0) and ((a[i] mod 5) = 0) then          a[i] := 0        else        if ((i mod 2) <> 0) and ((a[i] mod 3 )= 0) then           a[i] := -1       else        a[i] := 1;        end;    for i := 1 to 15 do        write (a[i]:5);readln;end.