На какое однозначное число надо умножить 12345679, чтобы в результате получилось новое число, записанное одними единицами?

домик, солнышко и

program p1; uses graphabc; beginclearwindow(clskyblue); line (0,200,640,200); floodfill (50,250,cllime); setbrushcolor (clnavy); rectangle (80,100,180,200); setbrushcolor (clbrown); rectangle (110,130,140,200); line (110,160,125,160); line (125,160,125,160); line (125,160,125,170); line (125,170,120,170); line (120,170,120,165); line (120,165,110,165); floodfill (120,162, clblack); line (80,100,130,40); line (130,40,180,100); floodfill (130,50, clnavy); setbrushcolor (clyellow); rectangle (120,70,140,90); line (130,70,130,90); line (120,80,140,80); setbrushcolor (clyellow); circle (280,40,30); line (250,30,230,10); line (240,40,220,50); line (240,60,220,80); line (260,70,250,90); line (300,70,310,90); line (320,60,340,80); line (320,40,340,50); line (310,30,330,10); setbrushcolor (clbrown); rectangle (410,50,420,200); rectangle (500,50,510,200); rectangle (435,70,440,160); rectangle (480,70,485,160); rectangle (400,60,520,70); rectangle (435,160,485,170); end.

 

var

  count: integer;

begin

  write('введите количество грибов '); readln(count);

  write('мы нашли в лесу ', count);

  case count div 10 of

      1: writeln(' грибов');

      else

          case count mod 10 of

              0, 5..9: writeln(' грибов');

              1: writeln(' гриб');

              2..4: writeln(' гриба');

          end;

  end;

end.