Помогите,прошу!

1. Найти среднее арифметическое от 1 до N.
2. Найти среднее арифметическое целых,чётных,кратных 3 чисел от 1 до N/
3. Найти произведение чисел от 1 до N/

var  n,i,s,k,p:integer;begin  p:=1;  write('Введите число ');  readln(n);  writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2);  for i:=1 to n do begin    if (i mod 3 = 0) and (i mod 2 = 0) then begin      s:=s+i; k:=k+1;     end;    p:=p*i  end;  writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k);  writeln(' произведение чисел от 1 до ',N,' = ',p); end.Тестовое решение:Введите число 10 среднее арифметическое от 1 до 10 = 5.5 среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6 произведение чисел от 1 до 10 = 3628800