Всі умови | Умова: Дано дійсні числа 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.