Jeem: limbaj de programare in limba araba

Super super tare:

متغير

صحيح: رقم, ل, المجموع; #ش 

صحيح: ب, ت; #س

حقيقي: رقم حقيقي; #س

بداية

إمسح; #ش

إطبع("اهلا و سهلا", سطر, سطر,سطر);  # ش

إطبع("أدخل أي عدد صحيح بين 0 و 10 الحساب المجموع من 1 لذلك الرقم");  # ش 

إطبع(سطر);  # ش

   إطبع  ("و تحديد زوجي أو فردي, أو اي رقم غير ذلك للخروج من  البرنامج" , سطر); # ش

إطبع (سطر, "أدخل الرقم :") ;#ش

إقرأ (رقم); #ش

طالما ((رقم >= 0) و (رقم <=10)); #ش

بداية

تكرار ل من 1 إلى (رقم-1); #ش

 المجموع = المجموع + ل; #ش

إطبع (ل, "+"); #ش

نهاية; #ش

 إطبع (ل, "=", المجموع+ رقم)) #ش

إذا ((رقم مود 2) == 0) #ش

إطبع (سطر, "الرقم زوجي", سطر) # ش

وإلا

إطبع ("الرقم فردي", سطر) #ش

# ......

نهاية.#ش

In traducere proprie:

variabile

intregi:  raqam, L, almajmua;

intregi: B, T;

reale: raqam_haqiqi;

inceput

permite;

afiseaza ("bine ati venit", linie, linie, linie);

afiseaza ("introduceti orice numar intreg intre 0 si 10 .....");

afiseaza (linie);

afiseaza ("si determinati daca este par sau impar, sau altceva pentru a iesi din program", linie);

afiseaza (linie, "introduceti numarul");

citeste (raqam);

cat timp (raqam>=0 si raqam<=10);

inceput

pentru L de la 1 la raqam-1;

    almajmua = almajmua + L; 

    afiseaza (L, "+");

sfarsit;

afiseaza (L, "=" , almajmua + raqam);

daca (raqam modulo 2 == 0)

    afiseaza (linie, "numar par", linie);

altfel

    afiseaza ("numar impar" , linie)

sfarsit

P.S. Programul este incomplet.

Link de descarcare programul Jeem: http://www.jeemlang.com/index.php?page=downloads