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

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

program pr168;
var
  i, n: integer;
  a : array of integer;
begin
  write('n = '); readln(n);
  setLength(a, n + 1);
  for i := 1 to n do
  begin
    write('a',i,' = '); readln(a[i]);
  end;

  //variant a
  for i := 6 to n do
    write(a[i], ' ');
  writeln('');
  
  //variant b
  for i := 6 to n do
    write(a[i], ' ');
  write(a[1]); writeln('');
  
  //variant v
  for i := 6 to n do
    write(a[i], ' ');
  write(a[5]); writeln('');

  readln;
end.