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

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

автор: кот Бегемот