7.

program phuongt;

uses crt;

  var n, n1, i: integer;

begin

          clrscr;

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

          n1:=1;

          for i:=2 to n do n1:=n1*i;

          write('n! = ', n1);

          readln

end.

8.

program phuongt;

uses crt;

  var n, s, i: integer;

begin

          clrscr;

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

          s:=0;

          for i:=1 to n do s:=s+i;

          write('S = ', s);

          readln

end.

9.

program phuongt;

uses crt;

  var i, s: integer;

begin

          clrscr;

          s:=0;

          for i:=1 to n do s:=s+i;

          write('S = ', s);

          readln

end.

10.

program phuongt;

uses crt;

  var i, n: integer;

           s: real;

begin

          clrscr;

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

          s:=0;

          for i:=1 to n do s:=s+1/i;

          write('S = ', s);

          readln

end.

13.

14.

program phuongt;

uses crt;

  var ten: string;

           i: integer;

begin

          clrscr;

          for i:=1 to 40 do

          begin

                      write('Hay nhap ten ban hoc sinh: '); readln(ten);

          end;

          write('Chao cac ban');

          readln

end.