Тема исследования: Проблемы авторского права в Казахстане. Вопросы исследования и направления исследований:
1. Авторское право в стране
законодательство о защите.
2. Авторские права
незащищенные работы.
3. Что такое «интеллектуальная собственность»?
Какой ущерб от нарушения авторских прав и плагиата?

...А если интересует решение на классическом Паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.

Обрати внимание! longint может хранить значения только до , поэтому конкретно в этой программе вывод будет достоверным только для N ≤ 46. Ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа int64, и тогда максимальное значение N возрастёт до 92. Для бОльших N тебе придётся писать длинное сложение.

Код

var

i, n, pred, predpred, cur: longint;

begin

read(n);

if n = 1 then writeln(1)

else if n = 2 then writeln('1 1')

else write('1 1 ');

if n < 3 then exit;

pred := 1;

predpred := 1;

for i := 3 to n do

begin

 cur := pred + predpred;

 write(cur, ' ');

 predpred := pred;

 pred := cur;

end;

writeln;

end.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
  //      1 3 5 7 9 1 3 5 7 9 1
  //       2 4 6 8 + 2 4 6 8 +
  var n:=Length(s);
  var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
  w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
  w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
  w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
  Write(w,' ');
  w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
  w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
  w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.

Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ