Информатика (9кл) страница 157 задача 2 ​

Рюкза́к (от нем. Rücksack — заплечная сумка) — специализированная сумка для длительной переноски на спине различных грузов. Снабжён двумя (реже — одной) косыми (идут от области шеи в бока) лямками, надеваемыми на плечи, а также, в большинстве случаев, ручкой с верхней стороны, стабилизирующими и разгрузочными ремнями, и дополнительными элементами для навесного закрепления предметов экипировки и амуниции, в зависимости от области его применения.
В зависимости от конструкции, может напоминать армейский ранец или вещмешок, но отличается от ранца тем, что последний снабжён прямыми лямками и не имеет дополнительных элементов, а от вещмешка тем, что лямки рюкзака раздельны и в верхней части жёстко закреплены (пришиты), а не привязываются к горловине мешка.

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