Массив m(8) заполнен с клавиатуры целыми числами в диапазоне от -15 до +10. Числа меньшие -5 увеличить в 3 раза, а числа, большие 7 в 5 раз. Исходный и новый массивы вывести в виде матриц.

var a:array[1..8] of integer; b:array[1..8] of integer; i:integer; begin write('Заполните массив - '); for i:=1 to 8 do  read(a[i]); for i:=1 to 8  do  begin   if a[i]<(-5) then b[i]:=a[i]*3    else     begin      if a[i]>7 then b[i]:=a[i]*5       else b[i]:=a[i];     end;  end; for i:=1 to 8 do  write(a[i],' '); writeln(); for i:=1 to 8 do  write(b[i],' '); end.