Вычеслить среднее арифметическое от 5 до n(n вводится с клавиатуры). в паскаль)

var s: real; n,i: integer;

begin

write('Введите число N: ');

readln(n);

if n>5 then begin

s:=0;

for i:=5 to n do s:=s+i;

s:=s/(n-5+1);

writeln(s);

end else writeln('Введите другое число, больше 5');

end.