18.2.1

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

var a0, a1, ai: int64; n, i: integer; //Объявляем переменные целого типа

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

a1:=2; //Присваиваем значение 1 члена последовательности (по усл. равен 2)

writeln('Введите нулевой член последовательности:');

readln(a0); //Ввод нулевого члена последовательности

writeln('Введите количество членов последовательности, которое необходимо вывести');

readln(n); //Ввод количества членов последовательости

for i:=0 to n do begin //инициализируем цикл с параметром

writeln(i, ': ', a0); //Выводим i-тый член последовательности (начиная с 0)

ai:=a0+a1; //Вычисляем следующий i+1 член последовательности

a0:=a1;  //"Сдвигаем" i-2 член последовательности

a1:=ai;  //"Сдвигаем" i-1 член последовательности

end; //Завершаем цикл

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