Задача в Паскале. Дано 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.

Var i:array[1 ... 1000] of integer;

sum, n, k : integer;

Begin

Readln (n);

for k:=1 to n do begin

Read (i[k]);

sum+=i[k];

end;

writeln (sum/n);

end.