Bài 2:
var n,i:longint;
s: real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
s:=s+1/i;
write('Tong la: ',s);
readln;
end.
Bài 3:
var i,n,kq:lognint;
begin
write('Nhap n: '); readln(n);
kq:=1;
for i:=1 to n do
kq:=kq*i;
write('Ket qua la: ',kq);
readln;
end.