program ar_gerame_name_gyvensite;
  var n, m, k, nr, aukstu_sk, butu_sk_laip, buto_aukstas: integer;
begin
  readln (n, m, k, nr);
  { but— skai‡ius laiptin‚je }
  butu_sk_laip := n div m;
  { auk˛t— skai‡ius name }
  aukstu_sk    := butu_sk_laip div k;
  { buto auk˛tas }
  buto_aukstas := (nr - 1) div k mod aukstu_sk + 1;
  writeln (aukstu_sk, ' ',butu_sk_laip, ' ', buto_aukstas);
end.