const
  n=6;
var
  a: array[1..n] of integer;
  i,k: integer;
begin
  randomize;
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
  writeln;

  k:=a[n];
  for i:=n downto 3 do
    a[i]:=a[i-1];
  a[1]:=k;
  writeln('Результат:');
  for i:=1 to n do write(a[i],' ');
  readln;
end.