СРОЧНО! ПОМОГИТЕ! Задача по паскалю 15 случайных чисел [13; 72]- все числа стоящие на…

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.