Bài 1: Do đề không rõ ràng nên mình tính tổng các số chẵn và số lẽ từ 1 đến n nhé!

Program BTT;
Uses crt;
Var n,i,tl,tc: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        tl:=0; tc:=0;

        For i:=1 to n do
        Begin
                If i mod 2 = 0 then tc:=tc+i;
                If i mod 2 = 1 then tl:=tl+i;
        End;

        Writeln('Tong cac so le: ',tl);
        Write('Tong cac so chan: ',tc);

        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var n,i,t: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        t:=0;
        For i:=1 to n do
                If n mod i = 0 then t:=t+i;
        Write('Tong uoc la: ',t);
        Readln
End.

Bài 3:

Program BTT;
Uses crt;
Var S: int64;
    i,n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        S:=1;
        For i:=1 to n do
                S:=S*i;
        Write('Giai thua cua ',n,' la: ',S);
        Readln
End.

Bài 4:

Program BTT;
Uses crt;
Var n,i: longint;
    S: int64;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        S:=1;
        For i:=1 to n do
                S:=S*2;
        Write('Dap an: ',s);
        Readln
End.

Bài 5:

Program BTT;
Uses crt;
Var n,m,i: longint;
    S: int64;
Begin
        Clrscr;
        Write('Nhap m,n: '); Readln(m,n);
        S:=1;
        For i:=1 to n do
                S:=S*m;
        Write('Dap an: ',s);
        Readln
End.