Найти среднее арифметическое чисел от 1 до N,N-вводит пользователь

var n:integer;sr:real;i,s:integer;beginwriteln('n=');readln(n);s:=0;for i:= 1 to n dobegins:=s+i;sr:=s/n;end;writeln('sr=',sr);readln;end.