Дано {1/1, 2/1, 3/2, 5/3, 8/5, 13/8...} Нужно вывести первые n членов последовательности и посчитать k член на паскале

{общий член последовательности можно  задать формулой   Sn=((An-1)+(Bn-1))/(An-1)  где A- числитель,  В - знаменатель }const n=10;var A,B,C,i,k: integer;begin   A:=1;  B:=1;{ вывод последовательности на экран  }    for i:=2 to n do      begin          C:=A;     A:=A+B;       B:=C;           writeln(i,'  ->  ',A,'/',B);      end;{ подсчет k - го члена  }    k:=20;  A:=1;  B:=1;    for i:=2 to k do         begin             C:=A;       A:=A+B;       B:=C;       end;     writeln(k,' - ый элемент = ',A,'/',B);  end.