Произведение двух чисел равно 286. Если один множитель уменьшить на 2, то произведение будет равно 242. Найдите больший множитель.

Здравствуйте, помогите пожалуйста решить задачу:
В одномерном массиве из N чисел вывести на экран положительные элементы и сообщение об их количестве.Помогите пожалуйста!

CLS

RND Находим все положительные числа в одномерном массиве и выводим их количество

INPUT "Количество элементов"; n

DIM a(n)

FOR i = 1 TO n

    INPUT a(i)

NEXT i

REM Выбор положительных чисел

k = 0

FOR i = 1 TO n

    IF a(i) > 0 THEN k = k + 1: PRINT a(i)

NEXT i

REM Количество положительных чисел

PRINT k

END

 В чем ошибка?