Program p1011;
Var
    a,b,c:extended;
    i:Longint;
Begin
    Read(a,b);
    a:=a/100;
    b:=b/100;
    If a<b Then
        Begin
            c:=a;a:=b;b:=c;
        End;
    i:=1;
    While trunc(i/a)=trunc(i/b) Do i:=i+1;
    If ABs((Trunc(i/a)+1)*a-i)>0.00000000001 Then Writeln(Trunc(i/a)+1) Else Writeln(Trunc(i/a)+2);
End.