Bài 1:

program tinh_tong;

uses crt;

var n,i:integer;

     t:real;

begin

      clrscr;

      write('Nhap n: ');  readln(n);

      t:=0;

      for i:=1 to n do

            t:=t+1/(n*(n+2));

      write('Tong la: ',t:0:2);

      readln;

end.

Bài 2:

program dem_lonhon;

uses crt;

var A:array[1..1000] of integer;

      n,i,d,x:integer;

begin

      clrscr;    

      write('Nhap so luong phan tu cua day: ');  readln(n);

      for i:=1 to n do

           begin

                write('Nhap so thu ',i,': ');  readln(A[i]);

           end; 

      write('Nhap so x: ');  readln(x);

     d:=0;

     for i:=1 to n do

           if A[i]>x then

                begin

                     write(A[i],' ');

                     d:=d+1;

                end;

     if d=0 then write('Khong co so nguyen nao lon hon ',x)

      else

           begin

                 writeln;

                 write('Co ',d,' so lon hon x');

           end;

     readln;

end.