{* Задача 171 *}

Program zadach171;

Uses CRT; {* Подключение модулей *}
Const {* Константы *}
  N = 5;
Type {* Создание новых типов данных *}
  ArrayN = Array [1..N] Of Integer;
Var {* Необходимые переменные *}
  X      : ArrayN;
  i      : Integer;
  Number : Integer;
Begin
  Clrscr; {* Очищаем экран *}
  Randomize;
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
  Begin
    X[i] := - 1000 + Random(2000);
    Write(X[i], ' ');
  End;
  Writeln('');
  Number := X[1];
  For i := 1 To N - 1 Do {* Цикл для i => [1 .. N] *}
    X[i] := X[i + 1];
  X[N] := Number;
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
    Write(X[i], ' ');
  Readln; {* Приостановка программы. Ожидание Enter *}
End.