1.

program phuongt;
uses crt;
var ip, op: text;
        m, n, s, i: integer;
begin
        clrscr;
        assign(ip, 'E:\DULIEU.txt');
        assign(op, 'E:\KETQUA.txt');
        reset(ip);
        rewrite(op);
        readln(ip, m, n);
        writeln(op, 'm = ', m);
        writeln(op, 'n = ', n);
        if m<n then
                for i:=m to n do if i mod 2 <> 0 then s:=s+i;
        write(op, 'Tong le = ', s);
        close(ip);
        close(op);
        write('Mo file de xem ket qua');
        readln
end.

2.

program phuongt;
uses crt;
  type A= array[1..102] of byte;
  var n, i: integer;
  B: A;
{---- Phan tu nho nhat ----}
function ptnn(K: A): integer;
var min, i: integer;
begin
        min:=K[1];
        for i:=1 to n do if min>K[i] then min:=K[i];
        write('Min = ', min);
end;
{---- Phan tu lon nhat ----}
function ptln(K: A): integer;
var max, i: integer;
begin
        max:=K[1];
        for i:=1 to n do if max<K[i] then max:=K[i];
        write('Max = ', max);
end;
{---- Phan tu chan le ----}
function ptcl(K: A): integer;
var i, d, t: integer;
begin
        d:=0;
        t:=0;
        for i:=1 to n do
        begin
                if K[i] mod 2 = 0 then d:=d+1;
                if K[i] mod 2 <> 0 then t:=t+1;
        end;
        writeln('So phan tu chan: ', d);
        write('So phan tu le: ', t);
end;
{---- Tong cac phan tu chan le ----}
function tptcl(K: A): integer;
var i, s, p: integer;
begin
        s:=0;
        p:=0;
        for i:=1 to n do
        begin
                if K[i] mod 2 = 0 then s:=s+K[i];
                if K[i] mod 2 <> 0 then p:=p+K[i];
        end;
        writeln('Tong so phan tu chan: ', s);
        write('Tong so phan tu le: ', p);
end;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(B[i]);
        end;
        ptnn(B);
        writeln;
        ptln(B);
        writeln;
        ptcl(B);
        writeln;
        tptcl(B);
        readln
end.