Решите задачу
(обоснование в виде схемы или таблицы истинности)

// 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 > 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 >= 1000;

 Write(S)

end.

Program zadacha;

Var x:integer;

Begin

  Randomize;

  x:=random(9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)+1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000;

  If (x mod 3=0) then begin

    If (x mod 9=0) then writeln('Делится на 3 и на 9);

  End;

  If (x mod 3=0) then begin

    If (x mod 9>0) then writeln('Делится только на 3);

  End;

  If (x mod 9=0) then begin

    If(x mod 3>0) then writeln('Делится только на 9);

  End; 

End.

P.S. Вы уверены, что СТОзначное число?