Дано целое число n. Найдите наименьшее число m (n ≤ m) такое, что все цифры в m одинаковы. Входные данные:
Первая строка содержит одно целое число n (100 ≤ n ≤ 999).

Dim nazv1$, nazv2$ dim p1%,o1%,d1%,p2%,o2%,d2% cls input "nazvanie 1: ", nazv1$ input "perviy: ", p1 input "otvetniy: ", o1 input "nazvanie 2: ", nazv2$ input "perviy: ", p2 input "otvetniy: ", o2 if p1+o1> p2+o2 then     print nazv1$ else     if p1+o1< p2+o2 then           print nazv2$     else           if o1-o2> p2-p1 then                 print nazv1$           else                 if o1-o2< p2-p1 then                       print nazv2$                 else                       print "dopolnitelnoe: "                       print nazv1$                       input d1                       print nazv2$                       input d2                       if d1> d2 then                             print nazv1$                       else                             if d1< d2 then                                   print nazv2$                             else                                   print "nichia"                             end if                       end if                 end if           end if     end if end if end пример: nazvanie 1: a perviy: 2 otvetniy: 0 nazvanie 2: b perviy: 0 otvetniy: 2 dopolnitelnoe: a ? 3 b ? 3 nichia