Решение на фото.
Стараюсь быть лучшим для вас)
===== PascalABC.NET ======
begin
SeqGen(8, 2, 3, (p, q) -> p * p + q).Print
end.
