Впаскале. дано n чисел, введённых с клавиатуры. найти их среднее арифметическое

program z_1;

var a, s: real;

i, n, k: integer;  

begin

writeln('Введите кол-во чисел последовательности: ');

readln(n);

k := 0;

s:=0;

for i := 1 to n do

begin

writeln('Введите ', i, '-е число: ');

readln(a);

s := s + a;

k := k + 1;  

end;

writeln('Среднее арифметическое чисел: ', s / k);  

end.