Массив 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.