uses crt;
var a:array[1..100] of integer;i,n,max:integer;s:longint;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap cac so nguyen: '); read(a[i]);
            if a[i] mod 2<>1 then s:=s+a[i];
        end;
    write('Day so nguyen: ');
    for i:=1 to n do write(a[i],' ');
    max:=a[1];
    for i:=2 to n do if a[i]>max then max:=a[i];
    writeln;
    write('Gia tri lon nhat: ',max);
    writeln;
    write('Tong cac so chan trong day: ',s);
    readln;
end.

var n,i,k,j,s,max:longint;

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

begin

write('nhap n pt');readln(n); max:=0;

for i:=1 to n do

begin

write('pt thu',i);readln(a[i]);

if a[i]>max then a[i]:=max;

if a[i] mod  =0 then s:=s+a[i];

end;

write(max);

write(s);

readln

end.