Задачи по информатике, нужно в Паскале сделать программы:

2. Дано натуральное n. Вычислить n!; среднее арифметическое чисел от 1 до n; и среднее геометрическое от 1 до n.
3. Вводится натуральное число a. Вывести среди следующих чисел: 1;1+1/2;1+1/2+1/3;1+.......Найти среди этих чисел первое больше введёного a.

Среднее геометрическое неверно найдено, там надо не делить, а брать корень..

var n,i: integer;sum,r: longint;beginsum:=0; r:=1;readln(n);for i:=1 to n do begin sum:=sum+i; r:=r*i;end;writeln('!n=',r);writeln('Ср. арифм.=',sum/n);writeln('Ср. геом.=', exp(ln(r)*1/n));readlnend.

Спасибо, вот исправленный вариант )

2)var n: integer;sum,r: longint;beginsum:=0; r:=1;readln(n);for i:=1 to n do begin sum:=sum+n; r:=r*i;end;writeln('!n=',r);writeln('Ср. арифм.=',sum/n);writeln('Ср. геом.=', r/n);readlnend.3)var a,b: real; i:=integer;beginreadln(a);b:=0; i:=1;while b<a do begin b:=b+1/i; i:=i+1; end;writeln(b);readln;end.