uses crt;
var a:array[1..10000] of longint;
      n,i,s,sd,sa:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  inc(s,a[i]);
                  if a[i]>0 then inc(sd,a[i]);
                  if a[i]<0 then inc(sa,a[i]);
            end;
      writeln('Tong cac phan tu: ',s);
      writeln('Tong cac phan tu duong: ',sd);
      write('Tong cac phan tu am: ',sa);
      readln;
end.

program bai_giai;
uses crt;
var A:array[1..10000] of intger;
    n,i,t,td,sa:integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    t:=0; td:=0;   sa:=0;
    for i:=1 to n do
        begin
            t:=t+A[i];
            if A[i]>0 then td:=td+A[i];
            if A[i]<0 then
                begin
                    if sa=0 then sa:=A[i]
                        else if A[i]>sa then sa:=A[i];
                end;
        end;
    writeln('Tong: ',t);
    writeln('Tong duong: ',td);
    writeln('So am lon nhat: ',sa);
    readln;
end.