traitement sur les entiers

ÉNONCÉ
Ecrivez un programme qui lit N nombres entiers au clavier et qui affiche leur somme, leur produit et leur moyenne. Le nombre N est à entrer au clavier.

PASCAL

program spm;
uses wincrt;
var
s,p,i,n,nb:integer;
moy:real;
begin
repeat
writeln('saisir n'); read(n);
until (n>0);
s:=0; P:=1;
for i:=1 to n do
begin
writeln('saisir le nombre n°',i); readln(nb);
s:=s+nb;
p:=p*nb;
end;
moy :=s/n ;
writeln('la somme est=',s);
writeln('le produit est =',P);
writeln('la moyenne est =',moy);
end.