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

program gt;var n,i,p:integer;beginread(N);p:=1;for i:=2 to n dobeginp:=p*i;end;write(p);end.3)program gt;var s:integer;beginfor i:=5 to 100 dobeginif(i mod 6=0)then s:=s+i;end;writeln(s);end.2)program gtr;var i,n:integer;p,a:real;beginreaD(n);p:=0;for i:=1 to n dobeginread(a);p:=p+1/a;end;p:=n/p;write(p);end.