Дано {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.