Задача A + B = C

const c=99;
var a,b,schet:longint;
    i,j:integer;
    sa,sb,sc:string;
 
function kras(x1,x2:string;t:integer):boolean;
var i1:integer;
    y1,y2:boolean;
begin
kras:=true;
y1:=true;
y2:=true;
 
for i1:= 1 to t-1 do
begin
if x1[i1]=x1[i1+1] then begin y1:=false; break; end;
end; 
 
for i1:= 1 to t-1 do
begin
if x2[i1]=x2[i1+1] then begin y2:=false; break; end;
end;
 
if (y1=false) or (y2=false) then kras:=false ;
end;
 
begin
if c mod 2 <>0 then 
                  begin
                  a:=c div 2;
                  b:=a+1;
                  end
                  else
                  begin
                  a:=c div 2;
                  b:=a;
                  end;
                  
str(a,sa); 
str(b,sb);  
str(c,sc);   
 
while (length(sa)=length(sc)) and (length(sb)=length(sc)) do
begin
if kras(sa,sb,length(sc)) then
            begin
            if a+b=c then
                          begin
                          writeln(a,'  ',b);  //если число (с) большое лучше сделать комментарием
                          writeln(b,'  ',a);
                          inc(schet,2);
                          end;
            end;
            dec(a);
            inc(b);
str(a,sa); 
str(b,sb);  
str(c,sc);   
end;
writeln(schet);                
end.

var
c,a,b,d,k,i,j,kol:longint;
st1,st2:string;
f1,f2:integer;
begin
readln(c);
d:=c;
k:=1;
while d>9 do
begin
d:=d div 10;
inc(k);
end;
a:=1;
for i:=1 to k-1 do
a:=a*10;
for i:=a to c-a do
begin
f1:=0;
str(i,st1);
for j:=2 to length(st1)do
if st1[j]=st1[j-1]then f1:=1;
if f1=0 then
begin
b:=c-i;
f2:=0;
str(b,st2);
for j:=2 to length(st2)do
if st2[j]=st2[j-1]then f2:=1;
if f2=0 then inc(kol);
end;
if kol>1000000007 then kol:=kol mod 1000000007;
f1:=0;
f2:=0;
end;
writeln(kol);
end.