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

2)
var n: integer;
sum,r: longint;
begin
sum:=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);
readln
end.
3)
var a,b: real; i:=integer;
begin
readln(a);
b:=0; i:=1;
while b<a do begin b:=b+1/i; i:=i+1; end;
writeln(b);
readln;
end.