Giải các bài toán tính tổng, tích

Bài 1: Viết chương trình tính tích các số từ 1 đến n.
Bài giải:
uses crt;
var n,i,tich:integer;
begin
clrscr;
      tich:=1;
      write('Nhap n:');readln(n);
      for i:=1 to n do tich:=tich*i;
      write('Tich so tu 1 den ',n,' la:',tich);
readln;
end.

Bài 2:Viết chương trình tính tổng nghịch đảo từ 1 đến n.
Bài giải:
uses crt;
var i,n:integer;
   tong:real;
begin
clrscr;
      tong:=0;
      write('Nhap n:');readln(n);
      for i:=1 to n do
      tong:=tong+1/i;
      write('Tong ngich dao cac to tu 1 den ',n,' la:',tong:2:3);
readln;
end.

Bài 3: Viết chương trình tính tổng nghịch đảo giai thừa từ 1 đến n:
S=1/1! + 1/2! + … + 1/n!
Bài giải:
uses crt;
var i,n:integer;
   tich: longint;
   tong:real;
begin
clrscr;
      tong:=0;
      tich:=1;
      write('nhap n:');readln(n);
      for i:=1 to n do
      begin
           tich:=tich*i;
           tong:=tong+1/tich;
      end;
      writeln('Tong nghich dao giai thua tu 1 den ',n,' =',tong:2:1);
readln;
end.

Bài 4: Nhập số thực a dương. Tìm n bé nhất để biểu thức:
S=  1 + 1/2 + 1/3 + … + 1/n > a
Bài giải:
uses crt;
var i,n,a:integer;
tong:real;
beginuê
clrscr;
      write('Nhap a:');readln(a);
      tong:=0;
      n:=0;
      while tong<a do
      begin
           n:=n+1;
           tong:=tong+1/n;
      end;
      writeln('n be nhat:',n);
readln;
end.

Bài 5: Nhập n nguyên và sau đó tính n trong đó
N = 2 x 4 x 6…x n ( nếu n chẵn)
N=  3 x 5 x 7…x n ( nếu n lẻ)
Bài giải:
uses crt;
var n,i,s:integer;
begin
clrscr;
      write('Nhap n = ');readln(n);
      s:=1;
      while i<n do
      begin
           i:=i+2;
           s:=s*i;
      end;
      write('Tong =',s);
readln;
end.