Произвести сдвиг элементов вектора A(n) на к позиций влево так, что на место a[1] станет a[k+1], на место a[n-k] станет a[n], на место a[n-k+1] станет a[1], на место
a[n-k+2] станет a[2], на место a[n] станет a[k].

var i, k, n: integer;
    a, b: array [1..20] of integer;

begin
  randomize;
  repeat
    write('Enter 0 < n <= 20, n = ');
    readln(n);
  until n <= 20;
  repeat
    write('Enter 0 < k <= 20, k = ');
    readln(k);
  until (k <= 20) and (k > 0);
  k := k - 1;
  writeln('Array:');
  for i := 1 to n do
    begin
      a[i] := random(200)- 100;
      write(a[i]:3, ' ')
    end;
  writeln;
  writeln('Shifted array: ');
  for i := 1 to n do
    begin
      b[i] := a[(i + k) mod n + 1];
      write(b[i]:3, ' ')
    end;
  readln
end.