BTVN:

Program BTVN;
Uses crt;
Var n,t,i: longint;
Beign
Clrscr;
Write('Nhap n: '); Readln(n);
t:=0;
For i:=5 to n do
If i mod 5 = 0 then t:=t+i;
Write('Tong cac so tu nhien chia het cho 5 la: ',t);
Readln;
End.

Bài 2:

Program Tinhsopi;
Uses crt;
Const Epl=1E-4;
Var Pi,t: real;
       i,s: longint;
Begin
        Clrscr;
        Pi:=4; i:=1; s:=-1;
        t:=4/(2*i+1);
        While t>Epl do
        Begin
                Pi:=Pi+s*t;
                s:=-s;
                i:=i+1;
                t:=4/(2*i+1);
        End;

        Write('So pi la ',pi:0:5);
        Readln;
End.

Bài 3:

Program Inuoc;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
                If n mod i = 0 then Write(i:5);
        Readln
End.

Bài 4 và Bài 5:

Program UCLN_BCNN;
Uses crt;
Var m,n,UCLN,BCNN,s: longint;
Begin
        Clrscr;
        Write('Nhap hai so m va n: '); Readln(m,n);
        BCNN:=m*n;
        s:=n mod m;
        While s<>0 do
        Begin
                s:=m mod n;
                m:=n;
                n:=s;
        End;
        UCLN:=m;
        BCNN:=BCNN div UCLN;
        Write('Uoc chung lon nhat la ',UCLN,' va boi chung nho nhat la ',BCNN);
        Readln
End.