برنامج باسكال

نوتي رورو كتب:

السلام عليكم...

انا عندي برنامج بالباسكال ومالي عارفه احله كويس

امس جلست احاول فيه لوقت متاخر بس ما عرفت لاني انا مبتدئه بلغه الباسكال

وياريت تساعدوني

السؤال ...

اكتبي برنامح بلغه الباسكال يعمل على جمع الاعداد

من 1 الى الرقم الذي يدخله المستخدم

مع طباعه الناتج

ياريت تساعدوني فيه

اختكم

اليك الكود

program somme;

var

i,s,n:integer;

begin

write('donnez un nombre:');

read(n);

s:=0;

for i:=1 to n do

begin

s:=s+i;

end;

write('affichez la somme',s);

end;