Bài 1:
program DichChuyenPhanTu;
var i,n,k: integer;
a: array[1..32000] of integer;
procedure nhap;
begin
readln(n,k);
for i:=1 to n do read(a[i]);
end;
procedure xuat;
begin
for i:=k+1 to n do
write(a[i],' ');
for i:=1 to k do write(a[i],' ');
end;
begin
nhap;
xuat;
end.