Найдите среднее арифметическое 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.