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

var
n, t: integer;
a, s: real
begin
readln(n);
for t := 1 to n do
begin
readln(a);
s := s + a;
end;
writeln(s / n);
end.