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

[you92cef]

السلام عليكم
عيد مبارك سعيد
لقد وجدت صعوبة في برمجة هذا البرنامج
exrir un program pascal quio saisit des nombres entiers tant que leur somme est inferieur a 1000 puis qui affiche la somme obtenu et le nombre déentier saisis

[you92cef]

الا تساعدون؟

[S0FIANE]

و عليكم السلام
ضع محاولتك ونحن نصححها لك ان شاء الله

[you92cef]

تم حل المشكل شكرا للجميع

program ex09;
uses wincrt;
var i,n,s,r,z:integer;
begin
i:=0;
s:=0;
r:=1000;
while s<1000 do begin
readln(n);
s:=s+n;
r:=r-n;
i:=i+1;
end;
if s>1000 then writeln('erreuer');
writeln('la somme est',s-n);
writeln('entree est',i-1);
end.

[الأرض الطيبة]

كيفية تثبيت برنامج الدلفي