Var
   f,g,m,n: longint;

Function days(r: longint): longint;
         var d: longint;
         begin
         d:= (r -f*n) div (m*n);
         if (d*m*n < r -f*n) then
            Inc(d);
         days:= d;
         end;

Begin
     readln(input, f, g, m, n);
     writeln(output, days(f*(g-1) + 1), ' ', days(f*g));
End.