A = int(input())
c = 1
c*=100
while a !=0:
if (a\%10)==(c//100):
c=c+1
a=a//10
c=c\%100
print(c)
ЭТО Я!!! это моя тетрадь!
Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;
var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>