На каком языке?
Если basic тогда так:
private sub objora
dim x as integer
dim den as integer
x=12
den = 0
do
x=x+20+2
den = den + 1
loop while x>100
msgbox(den)
end sub
