Bài 1:
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.
Bài 2:

Program UCLN;

uses crt ;

var a,b: integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.
CRE: NHOK CUTE (HƯƠNG THỦY)