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 readln(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.