Заполнить type linmass = array [1..1000] of integer; var a : linmass; n, i : ; begin write('количество элементов массива: '); readln(n); for i : = 1 to do begin write('введите a[', i, '] '); readln(a[i]); end; i: =6; while i n do begin : =a[i]; i: = i+1; end; n: =n-5; for i : = 1 to do write(a[i]: 6); end.

1. integer
i - параметр цикла , должен быть целочисленным
2. n
вводим последовательно элементы с 1 до n
3.(( i-5)<n)
4. i-5 первому элементу присваиваем значение шестого, второму - седьмого и т.д.
5. n выводим последовательно элементы с 1 до n -5