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. Вы уверены, что СТОзначное число?
a,count:longint;
s:string;
begin
writeln('введите строку');
count:=0;
read(s);
while pos('жы',s)>0 do
begin
inc(count);
a:=pos('жы',s);
delete(s,a,2);
insert('жи',s,a)
end;
while pos('шы',s)>0 do
begin
inc(count);
a:=pos('шы',s);
delete(s,a,2);
insert('ши',s,a)
end;
writeln(s);
writeln('всего ошибок: ',count)
end.