uses crt;
var i,j,tong,d,max,k,tg: integer;
    a: array[1..15] of integer;
begin
clrscr;
    for i:=1 to 15 do begin
        readln(a[i]);
        tong:=tong+a[i];
        if a[i]>0 then d:=d+1;
    end;
    max:=a[1]; k:=1;
    for i:=1 to 15 do if max<a[i] then begin
        max:=a[i];
        k:=i;
    end;
    write('Day vua nhap: ');
    for i:=1 to 15 do write(a[i]:2);
    writeln;
    for i:=1 to 15 do
        for j:=1 to i do
            if a[i]>a[j] then begin
                tg:=a[i];
                a[i]:=a[j];
                a[j]:=tg;
            end;
    writeln('Tong cac phan tu: ',tong);
    writeln('Co ',d,' phan tu lon hon 0');
    writeln('Phan tu co gia tri lon nhat: ',max,'; Chi so: ',k);
    write('Day sau xap xep: ');
    for i:=1 to 15 do write(a[i],' ');
    readln
end.