Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -40 до 40 и увеличивает в 2 раза числа , кратные 5, а остальные уменьшает на 2.

var     a: array[1..100] of integer;     i, n: integer; begin     {ввод массива}     n := 15;          writeln('Данные массива:');     for i := 1 to n do     begin         a[i] := random(40 + 40) - 40;         write(a[i], ' ');     end;     writeln();          {изменение элементов}     for i := 1 to n do     begin         if a[i] mod 5 = 0 then             a[i] := 2 * a[i]         else a[i] := a[i] - 2;         write(a[i], ' ');     end; end.