Bài 3:
a.
Program Tinh_tong;
Uses crt;
Var n,S: integer;
Begin
        Clrscr;
        n:=0; S:=1;
        While S<=100 do
        begin n:=n+1; S:=S*n; end;
        Writeln('Tich N so tu nhien dau tien nho nhat lon hon 100 la ',S);
        Readln
End.
b.
Program Tinh_tich;
Uses crt;
Var n,S: integer;
Begin
        Clrscr;
        n:=0; P:=0;
        While P<=1000 do
        begin n:=n+1; P:=P+n; end;
        Writeln('Tong N so tu nhien dau tien nho nhat lon hon 1000 la ',P);
        Readln
End.