Найдите среднее арифметическое N первых натуральных чисел.

Program n1; const n=5; var a: array [1..n] of integer; i,S: integer; begin writeln('дано ',n,' чисел;'); for i:=1 to n do begin write('введите ',i,' число: '); readln(a[i]); end; for i:=1 to n do S:=S+a[i]; writeln('среднее арифм: ',S/n); end.