18.3.1

program nl_18_31_1; //Задаём имя программы

var a: array of real; i,n:integer; s: real; //Объявляем переменые и массив

begin //Начало тела программы

writeln('Введите n:'); //Сообщение для пользователя

readln(n); //Ввод кол-ва элементов массива для обработки

setlength(a,n+1); //Задаём длину динамического массива

a[1]:=1; //Присваиваем значение 1 элементу массива 

a[2]:=1; //Присваиваем значение 2 элементу массива

a[3]:=1; //Присваиваем значение 3 элементу массива

for i:=2 to n+1 do begin //инициализируем цилк для обработки массива

writeln('Элемент массива ', i-1, ' равен ', a[i-1]:0:5); //Выводим i-тый элемент массива

s:=s+a[i-1]; //Прибавляем значение элемента к сумме значений n элементов массива

if i>3 then a[i]:=a[i-1]+a[i-3]-1/i; //Вычисляем следующий элемент массива

end; //Конец тела цикла

writeln('Сумма равна: ', s:0:5); //Вывод суммы n элементов массива

end. //Конец тела программы