Câu 1:

Program Word;
Uses crt;
Var S: String;
    i, res: longint;

Begin
        Clrscr;
        Write('Nhap S: '); Readln(S);
        res := 0;
        For i:=1 to length(S) do
                If Upcase(S[i]) in ['A' .. 'Z'] then inc(res);
        Write('Co ',res,' chu cai tieng Anh');
        Readln
End.

Câu 2:

Program Mang;
Uses crt;
Var A: array[1..10000] of longint;
    n, i, res: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        res := 0;

        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                res := res + A[i];
        End;

        Write('Tong = ',res);
        Readln
End.

`1)`

var st,s:string;

    i,d,dem,kt,j,dem1:integer;

begin

clrscr;

write('Nhap xau:'); readln(s);

writeln('Xau vua nhap la: ',s);

d:=length(s);

for i:=1 to d do

  if s[i]=#32 then delete(s,i,1);

dem:=1;

st[1]:=s[1];

for i:=1 to d do

  begin

     kt:=0;

     for j:=1 to dem do

       if s[i]=st[j] then kt:=1;

     if kt=0 then

        begin

           inc(dem);

           st[dem]:=s[i];

        end;

  end;

for i:=1 to dem do

  begin

     dem1:=0;

     for j:=1 to d do

       if st[i]=s[j] then inc(dem1);

     writeln(st[i],' xuat hien ',dem1,' lan');

  end;

readln;

end.

`2)`

var i,n: byte;

A: array[1..100] of integer;

t: longint;

begin

write('Nhap N: '); readln(N);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong: ',t);

readln

end.