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

Question

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

Answer 1

Var
i: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.