Algoritma Deret Bilangan Yang Habis Dibagi Bilangan Tertentu

KAMUS 

i, bagi, banyak, jum : integer
   rata : real 

ALGORITMA

input ( bagi )

jum ← 0
   banyak ← 0

for i ← 1 to 10 do

if (i mod bagi = 0) then

output ( i )
          banyak ← banyak + 1
          jum ← jum + i

endif

endfor

   rata ← jum / banyak

output ( "Total Jumlah bilangan ada ", jum )
   output ( "Rata-ratanya: ", rata )

sumber :  http://galih.eu/2009/06/22/algoritma-deret-bilangan-yang-habis-dibagi-bilangan-tertentu/