program riestainiai;
  { 38 u‘davinys }
   var f : text;            { pradini— duomen— byla }
       n, m,                { riestaini— ir vaik— skai‡ius }
       k,                   { ¨ kiek dali— pjaustyti: m mod k = 0 }
       r, d : integer;
begin
  { pradini— duomen— skaitymas }
  assign (f, 'DUOMENYS.DAT');
  reset(f);
  readln (f, n, m);
  close (f);
  { rie˛ut— dalybos }
  writeln('RIESTAINI§       ­ KIEK DALI§       KIEK DALI§ DUOTI');
  writeln('  KIEKIS          PJAUSTYTI         KIEKVIENAM VAIKUI');
  for k := 1 to m do
    if m mod k = 0 then  { kiekvienas riestainis pjaustomas ¨ lygias dalis }
      begin
        r := m div k; { 1/k = r/m, tad r = m/k } { riestaini— kiekis, kad }
                              { kiekvienam vaikui u‘tekt— po vien… gabal… }
        d := n div r;                            { po kiek dali— duoti }
        n := n mod r; { n/m := n/m - d/k }       { kiek liko }
        if d > 0 then
          writeln (r * d : 6, k : 17, d : 24)
      end
end.