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. Вы уверены, что СТОзначное число?
