Bài 1:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
        End;

        Write('Cac phan tu chan: ');
        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(A[i],' ');
        Writeln;

        Write('Tong cac gia tri vua nhap la: ',s);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var S: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap xau S: '); Readln(S);
        Write('Xau vua nhap theo thu tu nguoc lai la: ');
        For i:=length(S) downto 1 do
                Write(S[i]);
        Writeln;

        For i:=1 to length(S) do
                If S[i]=' ' then Delete(S,i,1);
        Write('Xau sau khi bo ki tu trang: ',S);
        Readln
End.