امتحان في لغة البرمجة

[titi2010]

السلام عليكم
لقد اجتزت امتحان في البرمجة اليوم
http://www6.0zz0.com/2016/12/18/00/788630484.jpg
هاهي اجابتي هل انا صحيح

تمرين 1 :
program ghb ;
var
P,N: real;
begin
writeln('entre le chifre daffer');
readln(NN);
If ((N>0)and (N<=1000)) then
begin
P:=N*1.05+4000;
write('LE prix de remboursement =' ,P);
end;
If ((N>1000)and (N<=2000)) then
begin
P:=N*1.1+4000;
write('LE prix de remboursement =',P);
end;
If (N>2000) then
begin
P:=N*1.14+4000;
write('LE prix de remboursement =',P);
end;
end.
تمرين 2 :
var N , i: integer;
s , m : real;
begin
repeat
writeln ('entre la valeur de N');
readln (N);
S := S+1;
i:=i+1;
m:=S/i;
until N=0;
writeln ('la some =',S);
writeln ('la moyen=',m);
end.
التمرين 3
program Summ;
var
i, N: integer;
sum: real;
begin
sum := 0;
write('Entrer un entier N: ');
readln(N);
for i := 1 to N do
sum := sum + 1 / i;
write('La somme est: ');
writeln(sum);
readln();
endd.

[nansoft]

بارك الله فيك أخي