{* Циклический сдвиг элементов массива вправо *}

Unit SAMPLE014;
Interface
Implementation
Begin
 writeln('Циклический сдвиг элементов массива вправо');
End.

Program pas;

Uses sample014.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..10] Of integer;
  x : integer;
  i : integer;
Begin
  writeln('введите 10 элементов массива');
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
    readln( a[i] );
  x := a[10];
  For i := 10 To 2 Do {* Переменная i увеличивается с 10 до 2 *}
  Begin
    a[i] := a[i - 1];
  End;
  a[1] := x;
  writeln('после сдвига:');
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    writeln( a[i] );
End.