program sdv;
uses crt;
const n=4;
type m=array[1..n] of integer;
var i,j,r,k:integer;
    a,a1:m;

procedure sdvigm(var a1:m;k:integer);
 begin
  for i:= 1 to abs(k) do
    begin
     for j:= 1 to n do
      if (j=1) then r:=a[j]
      else a[j-1]:=a[j];
      a[n]:=r;
    end;
    for i:= 1 to n do write(a[i]:2);
  end;

procedure sdvigp(var a:m;k:integer);
 begin
  for i:= 1 to k do
    begin
     for j:= n downto 1 do
      if (j=n) then r:=a[n]
      else a[j+1]:=a[j];
      a[1]:=r;
    end;
    for i:= 1 to n do write(a[i]:2);
  end;

begin
 clrscr;
 randomize;
  for i:= 1 to n do
   begin
    a[i]:=1+random(9);
    write(a[i]:2);
   end;
   a1:=a;
   writeln;
   repeat
   write('C KaKogo el. dvigat: ');
  read(k);
   until k<n;
    if (k<0) then sdvigm(a1,k)
    else sdvigp(a,k);
  readkey;
 end.