CLS
INPUT "Vvedite chislo: ", n
FOR u = 1 TO n - 1   ' Перебираем все числа до n
   s = 0
   FOR d = 1 TO u    ' Ищем сумму делителей
      IF u MOD d = 0 THEN
       s = s + d: IF s > MaxD THEN MaxD = s: c = u
      END IF
   NEXT
NEXT
PRINT "Chislo          :"; c
PRINT "Summa delitelej :"; MaxD