Вычислить количество и произведение чисел, кратных 4, на отрезке от 5 до 79 с помощью цикла — Do while …. Loop- Basic(Бейсик)

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