Calcul media aritmetica a elementelor unui vector

>Calculeaza media aritmetica a elementelor dintr-un vector.

program media_arit;
var v:array[1..50]of integer;
    n,ma,i,nr,s:integer;
begin
     write('n=');readln(n);
     for i:=1 to n do begin
         write('v[',i,']=');readln(v[i]);
         end;
     for i:=1 to n do write(v[i], ' ');
     s:=0; nr:=0;
     for i:=1 to n do begin
         s:=s+v[i];
         inc(nr);
         end;
     if nr>0 then writeln('media arit=', s/nr);
     readln;
end.
{ by Maria  PascalZone.evonet.ro}