program prog1;
var
  mac: array [1..16] of byte;

begin
  for var i := 1 to 16 do
  begin
    mac[i] := Random(41)-20;
    Writeln('Элемент массива с индексом ', i, ' равен: ', mac[i]);

  end;
  for var i := 1 to 16 do
  begin
    if (mac[i] mod 5 = 0) then mac[i] *= 2
      else mac[i] -= 10;
      Writeln('Преобразованный элемент массива с индексом ', i, ' равен: ', mac[i]);
  end;
end.