ЕБАНАЯ ОЛИМПИАДА КФУ

const m=100; // 9 класс // m=1000; - 10 класс // m=125; - 11 класс
var
 f:array[0..m-1,0..m-1] of integer;
 b:array[0..m-1] of integer;
 k,i,j,fi,fi1,fi2:integer;
begin
 for i:=0 to 99 do b[i]:=0;
 for i:=0 to 99 do
 for j:=0 to 99 do
 f[i,j]:=0; // подряд идущая цепочка чисел Фибоначчи i,j отсутствует
 fi1:=1;fi2:=0;
 b[fi2]:=1;b[fi1]:=1;
 while f[fi1,fi2]=0 do // подряд идущая цепочка чисел Фибоначчи fi1,fi2
 // не появлялась
 Begin
 f[fi1,fi2]:=1; // подряд идущая цепочка чисел Фибоначчи fi1,fi2 появилась
 fi:=(fi1+fi2) mod m; // получение новой монеты
 b[fi]:=1; // монета fi востребована
 fi2:=fi1; fi1:=fi
 end;
 // подсчет числа востребованных монет
 k:=0;
 for i:=1 to m-1do k+=b[i];
 write(k)
5
end.