uses crt;
var n, i, j, s, pc, pl, sc , sl, max, min: integer;   
    a:array[1..1000] of integer;
begin
    clrscr;
    readln(n);
    pc:=1;
    pl:=1;
    for i:= 1 to n do
        if i mod 2 = 0 then
            begin
                sc:=sc+i;
                pc:=pc*i;
            end
        else 
            begin
                sl:=sl+i;
                pl:=pl*i;
            end;
    writeln('Tong chan: ', sc);
    writeln('Tong le: ', sl);
    writeln('Tich chan: ', pc);
    writeln('Tich le: ', pl);
    write('So nguyen to: ');
    for i:= 2 to n do
    begin
        if (i = 2) or (i = 3) then write(i, ' ') 
        else
        for j:= 2 to i do
            begin
                if i = j then write(i, ' ');
                if i mod j = 0 then
                    break;
            end;
    end;        
    writeln;
    readln(n);
    for i:= 1 to n do
        read(a[i]);
    min:= a[1];
    for i:= 1 to n do
        begin
            if max < a[i] then max:= a[i];
            if min > a[i] then min:= a[i]; 
        end;
    writeln('So nho nhat: ', min);
    writeln('So lon nhat: ', max);
    
    
end.