Câu 1: 

uses crt;
var S: string;
Begin
    clrscr;
    write('Nhap xau S: ');
    readln(S);
    write('Xau vua nhap: ',S);
    readln
end.

Câu 2:

uses crt;
var A: array[1..100000] of longint; n,t,i: longint;
Begin
    clrscr;
    write('Nhap so luong phan tu n: ');
    readln(n);
    for i:=1 to n do
    Begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(a[i]);
    end;
    for i:=1 to n do if (a[i] mod 2 = 0) then t:=t+a[i];
    write('Tong cac so chan trong day A la: ',t);
    readln
end.

Câu 1:

uses crt;
var s:string;
begin
clrscr;
   write('Nhap sau S: ');readln(s);
   writeln('Xau vua nhap: ',s);
readln
end.

Câu 2:

uses crt;
var i,n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i] mod 2=0 then inc(s,a[i]);
      end;
   writeln('Tong cac so chan: ',s);
readln
end.