1.
Program pht;
uses crt;
var n, i: integer;
s: real;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do s:=s+1/i;
write('S = ', s:3:2);
readln
end.
2.
Program pht;
uses crt;
var i, n, j: integer;
s, k: longint;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
k:=1;
for j:=1 to i do k:=k*j;
s:=s+k;
end;
write('S = ', s);
readln
end.