{* Задача 455 *}

Unit ZADACH455;
Interface
Implementation
Begin
 writeln('Дан одномерный массив. Циклически сдвинуть все элементы массива на 3 позиции влево');
End.

Program zadach455;
rogram pr5;
Const {* Постоянные значения *}
  n = 5;
Var {* Необходимые переменные *}
  a : Array [1..n] Of integer;
  c : integer;
  i : integer;
  b : integer;
Begin
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    readln (a[i]);
  c := a[1];
  b := a[2];
  For i := 1 To n - 3 Do {* Цикл для i => [1 .. n] *}
    a[i] := a[i + 3];
  a[n - 1] := b;
  a[n] := c;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    write (a[i], ' ');
End.