8. Дан целочисленный линейный массив. Вставить в него число 100 после m-го элемента, если этот элемент четный. В противном случае - перед ним.

const n=6;

num=100;

var arr:array[1 ... n] of integer;

m, i, j:integer;

begin

Writeln ('zapolnite massiv: ');

for i:=1 to n-1 do

Read (arr[i]);

Write ('pozitia v massive: ');

Read (m);

if (arr[m] mod 2) = 0

then

begin

for i:=n-1 downto m+1 do

arr[i+1]:=arr[i];

arr[m+1]:=num end

else

begin for i:=n-1 downto m do

arr[i+1]:=arr[i]; arr[m]:=num

end;

Write (' noviy massiw=: ');

for i:=1 to n do

Write (arr[i]:5);

writeln;

readln;

end.