{* Задача 55 *}

Unit ZADACH55;
Interface
Implementation
Begin
 writeln('Дан одномерный массив М из 28 элементов. Перенести первые "к" элеметов в конец M[k+1], M[k+2], ... , M[1], M[2],..., M[k]. ');
End.

Program zadach55;

Uses zadach55.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  j = 28;
Var {* Объявление переменных *}
  a    : Array [1..j] Of integer;
  temp : Array [1..j] Of integer;
  k    : integer;
  i    : integer;
  z    : integer;
Begin
  writeln('Vvedite massiv A:');
  For i := 1 To j Do {* Увеличиваем i от 1 до j с шагом 1 *}
    readln(a[i]);
  writeln('Vvedite k:');
  readln(k);
  For i := 1 To j Do {* Переменная i увеличивается с 1 до j *}
  Begin
    z := (k + i);
    If z > j Then
      z := abs(j - z);
    temp[z] := a[i];
  End;
  For i := 1 To j Do {* Увеличиваем i от 1 до j с шагом 1 *}
    write(temp[i], ' ');
  writeln('');
End.