«помогите: создать программувычисление среднее арифметическое значение чисел, всех чисел которые больше 3-х

s:=0;k:=0;
for i:=1 to n(n-количество чисел) do
begin
if i>3 then
begin
k:=k+1;
a:=a+i;
end;
end;
sa:=a/k;