Câu a, c, d làm chung thành 1 chương trình nha.

uses crt;
var A:array[1..1000] of integer;
    n,i,s,dem:integer;
begin
   clrscr;}
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 0 then begin s:=s+a[i]; inc(dem); end;
   end;
   write('Tong cac so chan la: ',s);
   writeln;
   write('So chan xuat hien ',dem,' lan');
   writeln;
   for i:=1 to n do write(A[i]:4);
   readln
end.

Câu b, e làm chung thành 1 chương trình

uses crt;
var s:string; i:byte;
begin
   clrscr;
   write('Nhap ho va ten: '); readln(s);
   for i:=1 to length(s) do s[i]:=upcase(s[i]);
   write('Ho va ten la: ',s);
   readln
end.