ПОМОГИТЕ РЕШИТЬ Задачку В ПАСКАЛЕ С Внедрением ЦИКЛА С ПОСТУСЛОВИЕМ!!!Числа Фибоначчи

// A) ..............................

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var Count := 2;

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

   Count += 1

 until Count = 40;

 Write(f2)

end.

// B) ...................................

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var m := ReadlnInteger();

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 gt; m;

 Write(f2)

end.

// C) ...............................

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var S := f1;

 repeat

   S += f2;

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 gt;= 1000;

 Write(S)

end.