ساعدوني ...باسكال

[you92cef]

اظن ان هدا هو البرنامج الكامل

program tp02;
uses wincrt;
var i,c,n,q,r:integer;
begin
writeln('Donner le nombre N');
readln(n);
c:=0;
i:=2;
while(i<=(n div 2)) do begin
q:=n div 2;
r:= n-q*i;
if r=0 then 
c:=c+1;
i:=i+1;
end;
writeln(c);
end.

بخصوص عمل البرنامج فحسب علمي
ادا ادخلت عدد زوجي اكبر من 2 النتيجة تكون 1
بينما لو ادخلت عدد فردي او العدد 2 فالنتيجة تكون 1

ادن يمكن القول ان البرنامج يجيب عما ادا كان العدد زوجي او فردي باستثناء 2
شكرا
+
الالغوريتم خاطئ
وينقصه
begin

end;

deput

fin;

لان مثلا في البوكل وايل ادا لم نضع
begin
end;
لا ندري ما هم الاوامر الدين يجب تكرارهم داخل البوكل وما ههم الاوامر الدين هم خارج البوكل