Câu 1:
Program  Tenchuongtrinh;
Const  fi='sochan.inp';
           fo='sochan.out';
Var  m,n,tong:longint;

Procedure Doctep;
  Var f:text;
  Begin
    assign(f,fi);
    reset(f);
    readln(f,m,n);
    close(f);
  End;

Procedure Xuatkq;
  Var f:text; i:longint
  Begin
    Doctep;
    assign(f,fo);
    rewrite(f);
    tong:=0;
    if (m<n) then 
      for i:=m to n do
        if (i mod 2=0) then tong:=tong+i;
    Writeln(f,tong);
    Close(f);
  End;

Begin
         Xuatkq;
End.
Câu 2:
Program  Tenchuongtrinh;
Type km= array[1..10] of longint;
Uses crt;
Var  A: km;
       n:longint;

Function  tong(d:km): longint;
  var i:longint;
  begin
    tong:=0;
    for i:=1 to n do
      tong:=tong+D[i];
  end;

Begin
         Clrscr;
         Write('Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
         Writeln('Tong cac phan tu cua mang A la: ',tong(a));
         Readln;
End.