18.3.1
Shchukoprogram 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. //Конец тела программы