Вычислить количество и произведение чисел, кратных 4, на отрезке от 5 до 79- QBasic(Бейсик)

p = 1
FOR i = 5 TO 79
    IF i MOD 4 = 0 THEN k = k + 1: p = p * i
NEXT
PRINT "kol="; k
PRINT "proizv="; p

Следующий вариант

p = 1
i = 4
DO WHILE i < 79
    i = i + 1
    IF i MOD 4 = 0 THEN k = k + 1: p = p * i
LOOP
PRINT "kol="; k
PRINT "proizv="; p

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