program z7_5; uses crt;
var a:array[1..100] of
integer;
k,i,j,n,m:integer;
BEGIN
clrscr;
randomize;
writeln('vvedite
n');
readln(n);
writeln('vvedite m
for i:=1 to n
do begin
a[i]:=random(20); write(a[i]:4);
end;
writeln;
for i:=1 to
n-m do begin
k:=a[m+i];
for j:=m+i downto i+1 do
begin
a[j]:=a[j-1];
end;
a[i]:=k;
end;
for i:=1 to n
do
write(a[i]:4);
readln;
END.