Из первой тысячи натуральных чисел отобрать совершенные числа. Число называется совершенным, если оно равно сумме своих положительных делителей, кроме самого числа — QBasic(Бейсик)

FOR i = 2 TO 1000
    s = 0
    FOR j = 1 TO i - 1
        IF i MOD j = 0 THEN s = s + j
    NEXT
    IF s = i THEN PRINT i;
NEXT

Тестирование выполнено в программе QB64 ( Скачать )