even number code

Hi ,

i am writing code for getting even numbers from 1 to 100.

biut i am always getting 0.

below i am writing my code if any one can correct me.

data : n type i value 0,

m type i .

do 100 times.

n = n + 1.

*m = m + 1.

m = ( n mod 2 ).

if m = 0.

write :/ 'even',m.

endif.

enddo.

regards,

karan