Задача в Паскале. Дано n чисел, введённых с клавиатуры. Найти их среднее арифметическое

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.

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.