{* Задача432 *}

REM basic

' Дана натур. числа, определить кол-во его делителей кратных 3.


INPUT n
k=0
For i = 3 To n Step 3
If n Mod i = 0 Then PRINT i: k=k+1
Next i
PRINT "Kolvo deliteley kratnih 3=";k
End