Однажды за круглым столом оказались пятеро ребят из Москвы, Санкт-Петербурга, Новгорода, Перми и Томска: Юра, Толя, Леша, Коля и Витя. Москвич сидел между Томичем и Витей, петербуржец – между Юрой и Толей, а напротив него сидели пермяк и Алеша. Коля никогда не был в Санкт-Петербурге, а Юра не был в Москве и Томске, Томич с Толей регулярно переписываются. Определить в каком городе живет каждый из ребят?

Решено, исходные данные:
a(1)=0 a(2)=1
a(n+2)=a(n+1)-a(n)
Найди a(885)
Внимание: скобка означает число в нижнем индексе.
Решаем, исходим сразу от наибольшего числа:
a(885)=a(884)-a(883)=a(883)-a(882)-a(883)=a(882)
В чем фокус-покус. Сначала мы применили формулу по отношению к числуa(885), а потом к числу a(884), из чего получилось равенство a(885)=a(882)
Тем самым, мы можем утверждать, что числа в последовательностях будут совпадать каждые 885-882=3 раза. 885 кратно 3, следовательно ищем наименьшее общее кратное число, оно равно 3. Следовательно a(885)=a(3)
Находим a(3) из формулы: a(3)=a(2)-a(1)=1-0=1, следовательно a(885)=1

Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
end.
надеюсь что так можно? ;D