Сумм(a1: a4)=13 срзнач(a1: a5)=3 сумм(a1: a5)=? с объяснением

Предположим что с А1 по А4 идут числа 3 3 3 4
Их сумма (СУММ(А1:А4)) = 13.
Среднее значение ячеек с А1 по А5 = 3
Учитывая, что первые 4 ячейки это 3 3 3 4, то получаем
3 * 5 - (3 + 3 + 3 + 4) = А5 = 2
Значит сумма (СУММ(А1:А5)) ячеек с А1 по А5 = 3 + 3 + 3 + 4 + 2 = 15
Или 3 (среднее значение) * 5 (кол-во ячеек)

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

#include <iostream>
using namespace std;
int main()
{
cout <<"4,4"<<endl;cout <<"4,5"<<endl;cout <<"4,6"<<endl;cout <<"4,7"<<endl;cout <<"4,8"<<endl;cout <<"4,9"<<endl;cout <<"5,0"<<endl;cout <<"5,1"<<endl;cout <<"5,2"<<endl;cout <<"5,3"<<endl;cout <<"5,4"<<endl;cout <<"5,5"<<endl;cout <<"5,6"<<endl;cout <<"5,7"<<endl;cout <<"5,8"<<endl;cout <<"5,9"<<endl;cout <<"6,0"<<endl;cout <<"6,1"<<endl;cout <<"6,2"<<endl;cout <<"6,3"<<endl;cout <<"6,4"<<endl;
}