ÇáÓáÇã Úáíßã
ÑÈäÇ ãÚÇßã íÇ ÌãÇÚÉ Çä ÔÇÁ Çááå ÇáÇãÊÍÇä ÎáÇÕ íæã ÇáÓÈÊ
ÚãæãÇ ÇäÇ åÔÑÍ ÇáÈÑäÇãÌ Çááì ÞÇáå Òãíáßã åæ Ýíå ÈÚÖ ÇáÇÎØÇÁ
ÇæáÇ áÇÒã äÍÏÏ ÇáÓÄÇá
íÚäì áæ ßÇä ØÇáÈ ãäß ãÌãæÚ ÇáÇÚÏÇÏ ÇáÊì ÊÞÈá ÇáÞÓãÉ Úáì 3 ÇáãÍÕæÑÉ Èíä 1 æ100 åíßæä ßãÇ íáí
10 rem this program for num
20 sum=0
30 for i = 1 to 100
40 x= i/3
50 if x= int (i/3) then 60
60 sum = sum + x
70 next i

80 mean =sum / 33 (áÇÍÙ Çä ÇáÇÚÏÇÏ ÇáÊì ÊÞÈá ÇáÞÓãÉ Úáì 3 ãÇÈíä ÇáæÇÍÏ æÇáãÇÆÉ åãÇ 33 ÑÞã ÝÞØ)
90 print sum , mean
100 end
áÇÍÙ Çäì áã ÇßÊÈ ÌãáÉ read æáÇ ÌãáÉ ÏÇÊÇ áÇä ÇáÇÑÞÇã ãÓáÓáÉ ãä 1 Çáì 100