var f2,f1:text;
a,b,c:array[1..10000] of integer;
i,j,n,k:integer;
procedure nhap;
begin
assign(f1,'baitap.inp');
reset(f1);
read(f1,n,k);
for i:=1 to n do read(f1,a);
close(f1);
end;
procedure xuly;
begin
for i:=1 to k do b:=a;
j:=1;
for i:=k+1 to n do
begin
c[j]:=a;
inc(j);
end;
i:=1;
while (i<=k) do
begin
a:=c;
inc(i);
end;
j:=n-k+1;i:=1;
while (j<=n) do
begin
a[j]:=b;
inc(i);inc(j);
end;
end;
procedure xuat;
begin
assign(f2,'baitap.out');
rewrite(f2);
for i:=1 to n do writeln(f2,a);
close(f2);
end;
begin
nhap;
xuly;
xuat;
end.
---xong nhé---tên file tùy chọn--