Дан массив а 5. случайные числа от 0 до 30. найти сумму и среднее арифметическое всех чисел.

Program z1;

var a:array [1..5] of integer;
s, k, n : integer;
begin
for I:=1 to 5 do begin
readln ( a[I]);
s:=s+a[I];
k:=k+1;
end;
n:=s/k;
writeln (s, k);
end.
надеюсь