System, тьфу..
я не прочитал что нужно именно средние арифметическое
так вот верно

program ser_chis;
uses crt;
var i,n:integer;
s:real;
begin
write ('n= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if n>1 then
s:=(s+i)/n;
end;
write (' sym = ',s);
readln(s);
end.

System, program ser_chis;
uses crt;
var i,n:integer;
s:real;
begin
write ('n= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if n>1 then
s:=(s+i)/2;
end;
write (' sym = ',s);
readln(s);
end.

буду з пк, напишу, а то с моба трудно.
Добавлено 22.04.14 в 11:17:10:
если никтотне поможет)