Увеличить элементы массива в 3 раза, кроме элементов из заданного диапазона - Pascal

Формулировка задачи:

Дан одномерный массив состоящий из n-элементов .Все элементы массива кроме элементов с номерами от k до m включительно увеличить в 3 раза при чем k<m<n

Решение задачи: «Увеличить элементы массива в 3 раза, кроме элементов из заданного диапазона»

Листинг программы

var a: array[1..100] of integer;
    n, i, j, k, m: integer;
begin
  randomize;
  write('N = ');
  readln(n);
  for i := 1 to n do begin
    a[i] := -10 + random(21);
    write(a[i], ' ');
  end;
  writeln;
  repeat
    write('K, M = ');
    readln(k, m);
  until (k < m) or (m < n);
  for i := 1 to n do begin
    if (i < k) or (i > m) then
      a[i] := a[i] * 3;
    write(a[i], ' ');
  end;
end.

Объяснение кода листинга программы

Объявлены переменные: a: array[1..100] of integer; n, i, j, k, m: integer;
Задается начальное значение для диапазона случайных чисел, выводимых в массив a. a[i] := -10 + random(21);
Вводится количество элементов массива a. write('N = '); readln(n);
Заполняется массив a случайными числами. for i := 1 to n do begin a[i] := -10 + random(21); write(a[i], ' '); end;
Выводится заполненный массив a. writeln;
Вводится диапазон элементов массива a, которые необходимо увеличить. write('K, M = '); readln(k, m);
Пока диапазон не пустой, выполняется цикл по увеличению элементов массива a. for i := 1 to n do begin if (i < k) or (i > m) then a[i] := a[i] * 3; write(a[i], ' '); end;
Выводится измененный массив a. end.