1.вычислить факториал N. (4!=1*2*3*4=24)2.найти среднее геометрическое N чисел3. вычислить сумму чисел

var factorial,factorial_,summa,b:integer;
begin
Задание 1.
factorial:=1;
for i:integer:=1 to 4 do
factorial:=i*factorial;
writeln(Факториал 4 равен:);
writeln(factorial);
writeln;

Задание 2.
factorial_:=1;
for i:integer:=1 to factorial do
begin
read(b);
factorial_:=i*b;
end;
writeln(Среднее геометрическое чисел одинаково:);
writeln(power(factorial_,1/factorial));

Задание 3.
for i:integer:=5 to 100 do
if i mod 6 = 0 then
summa:=summa+i;
writeln(Сумма чисел, которые кратны 6 из интервала [5; 100] одинакова:);
writeln(summa);
end.