написать программку генерирующую и выводящую на экран стозначное целое число.Найти

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 9gt;0) then writeln('Делится только на 3);

  End;

  If (x mod 9=0) then begin

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

  End; 

End.

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