Розв’язок задачі з Абрамова №138

Всі умови | Умова: Дано дійсні числа a1, ... , a70. Отримати (вивести) послідовність a 2, a3, ... , a70, a1. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №138)

program p138;
const
  n = 70;
var
  a  : array[1..n] of integer;
  i : integer;
begin
  for i := 1 to n do
  begin
    write('a',i,' = '); readln(a[i]);
  end;
  
  for i := 2 to n do
	writeln(a[i]);
  writeln(a[1]);

  readln;
end.