program proba;
uses crt;
var a1,a2,b1,b2,x:integer;
Vivod:integer;
Procedure First(x,a1,b1,a2,b2:integer);
Begin
 write('Вам даны уравнения:');
 writeln(a1*x>=b1,' и ',a2*x>=b2);
 writeln('Введите значения чисел:a1,a2,b1,b2');
end;
Function Urav1(x,a1,b1:integer):integer;
var S,k,k1:integer;
h:integer;
Begin
 k:=a1*x;
 k1:=b1;
 if(k<k1)or(k<=k1) then writeln('У первого уравнения нет решений');
 if k>=k1 then x:=k1 div a1;
 S:=0;
 repeat
  S:=S+x mod 10; x:=x div 10;
  if(x<=0)or(x>=0) then h:=h+1;
 until (x>=1000)or(x<=1000);
 if h>100 then writeln('-1');
 Urav1:=h;
end;
Function Urav2(x,a2,b2:integer);integer;
var j,p,r,l:integer;
Begin
 r:=a2*x;
 l:=b2;
 if(r<l)or(r<=l) then writeln('У второго уравнения нет решений')
 else if(r>l)or(r>=l) then x:=l div a2;
 j:=0;
 repeat
  j:=j+x mod 10; x:=x div 10;
  if(x<=0)or(x>=0)then p:=p+1;
 until (x=<-1000)or(x>=1000);
 if p>100 then writeln('-1'); 
 Urav2:=p;
end;
Begin 
First(x,a1,b1,a2,b2);  readln(a1,a2,b1,b2);
Urav1(x,a1,b1); Urav2(x,a2,b2);
Vivod:=Urav1(x,a1,b1)+Urav2(x,a2,b2);
writeln('Всего ',Vivod,' решений.');
end.