Дана последовательность из n целых чисел. найти среднее арифметическое этой последовательности.

Program D1KPxx16;
uses crt;
var
a,sr:real;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
read(a);
sr:=sr+a;
end;
sr:=sr/n;
writeln(sr);
end.

все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.