Nguyễn Huy Minh

var s,sa: string;
        i,res,k,c: longint;
begin
        assign(input,'nenxau.inp');
        assign(output,'nenxau.out');
        reset(input);
        rewrite(output);
        readln(s);
        res := 1;
        sa := '';
        for i := 1 to length(s) do
                if s[i]=s[i+1] then
                        inc(res)
                else
                        begin
                                sa := sa+s[i];
                                inc(k);
                                c[k] := res;
                                res := 1;
                        end;
        write(s);
        close(input);
        close(output);
end.

var s,st,sa,sres: string;
        x,k,j,i: longint;
        c: array[-7..100000] of longint;
begin
        assign(input,'gnenxau.inp');
        assign(output,'gnenxau.out');
        reset(input);
        rewrite(output);
        readln(s);
        st := '';
        sa := '';
        i := 1;
        while i<=length(s) do
                if (s[i]>='0') and (s[i]<='9') then
                        begin
                        st := st+s[i];
                        i := i+1;
                        end
                else
                        if st<>'' then
                                begin
                                val(st,x);
                                inc(k);
                                c[k] := x;
                                st := '';
                        end
                        else
                                begin
                                sa := sa+s[i];
                                i := i+1;
                                end;
        sres := '';
        for i := 1 to k do
                begin
                for j := 1 to c[i] do
                        sres := sres+sa[i];
                end;
        write(sres);
        close(input);
        close(output);
end.

var s,s1: string;
        i,p: longint;
begin
        assign(input,'delxautrx.inp');
        assign(output,'delxautrx.out');
        reset(input);
        rewrite(output);
        readln(s1);
        readln(s);
        while (pos(s1,s)>0) and (s<>'') do
                begin
                        p := pos(s1,s);
                        delete(s,1,p);
                end;
        write(s);
        close(input);
        close(output);
end.

var i,n: longint;
        e: array[-7..100000] of longint;
procedure xuli();
var i: longint;
begin
        for i := 1 to n do
                write(e[i],#32);
        writeln();
end;
procedure thu(i: longint);
var j: longint;
begin
        for i := 1 to 1 do
                begin
                e[i] := j;
                if i=n then
                        xuli()
                else
                        thu(i+1);
                end;
end;
begin
        assign(input,'dqbn0.inp');
        assign(output,'dqbn0.out');
        reset(input);
        rewrite(output);
        readln(n);
        thu(1);
        write(n);
        close(input);
        close(output);
end.

var i,n: longint;
        e: array[-7..100000] of longint;
procedure xuli();
var i: longint;
begin
        for i := 1 to n do
                write(e[i],#32);
        writeln();
end;
procedure thu(i: longint);
var j: longint;
begin
        for i := 1 to 1 do
                begin
                e[i] := j;
                if i=n then
                        xuli()
                else
                        thu(i+1);
                end;
end;
begin
        assign(input,'dqbn0.inp');
        assign(output,'dqbn0.out');
        reset(input);
        rewrite(output);
        readln(n);
        thu(1);
        write(n);
        close(input);
        close(output);
end.

var s: string;
        c: array[1..100000] of longint;
procedure split(s: string);
var k,i,n: longint;
        tam: string;
begin
        tam := '';
        k := 0;
        for i := 1 to length(s) do
                if (s[i]>='0') and (s[i]<='9') then
                        tam := tam + s[i]
                else
                        if length(tam)>0 then
                        begin
                                val(tam,n);
                                inc(k);
                                c[k] := n;
                                tam := '';
                        end;
        for i := 1 to k do
                write(c[i],#32);
end;
begin
        assign(input,'cb2tachso.inp');
        assign(output,'cb2tachso.out');
        reset(input);
        rewrite(output);
        readln(s);
        split(s);
        close(input);
        close(output);
end.

var s: string;
        i,rmax: longint;
        c: array[1..100000] of longint;
procedure split(s: string);
var k,i,n: longint;
        tam: string;
begin
        tam := '';
        k := 0;
        for i := 1 to length(s) do
                if (s[i]>='0') and (s[i]<='9') then
                        tam := tam + s[i]
                else
                        if length(tam)>0 then
                        begin
                                val(tam,n);
                                inc(k);
                                c[k] := n;
                                tam := '';
                        end;
end;
begin
        assign(input,'cb2max.inp');
        assign(output,'cb2max.out');
        reset(input);
        rewrite(output);
        readln(s);
        split(s);
        rmax := 0;
        for i := 1 to length(s) do
                if rmax<c[i] then
                        rmax := c[i];
        write(rmax);
        close(input);
        close(output);
end.

var i,n,j,p: longint;
        s: string;
        t: char;
begin
        assign(input,'cb2xaukg.inp');
        assign(output,'cb2xaukg.out');
        reset(input);
        rewrite(output);
        readln(s);
        p := length(s);
        for i := 1 to p-1 do
                for j := i+1 to p do
                        if s[i]>s[j] then
                                begin
                                t := s[i];
                                s[i] := s[j];
                                s[j] := t;
                                end;
        write(s);
        close(input);
        close(output);
end.

var s,snen,tam: string;
        dem,i: longint;
begin
        assign(input,'cb2nenxau.inp');
        assign(output,'cb2nenxau.out');
        reset(input);
        rewrite(output);
        readln(s);
        dem := 1;
        for i := 1 to length(s) do
                if s[i]=s[i+1] then
                        inc(dem)
                else
                begin
                        str(dem,tam);
                        snen := snen+s[i]+tam;
                        dem := 1;
                end;
        write(snen);
        close(input);
        close(output);
end.

var i,n: longint;
        f: array[1..100000] of string;
begin
        assign(input,'xaufibo1.inp');
        assign(output,'xaufibo1.out');
        reset(input);
        rewrite(output);
        readln(n);
        f[1] := 'a';
        f[2] := 'b';
        for i := 3 to n do
                begin
                f[i] := f[i-1]+f[i-2];
                write(f[i],#32);
                end;
        write(f[n]);
        close(input);
        close(output);
end.

var i,n,res1,res2: longint;
        f: array[1..100000] of string;
begin
        assign(input,'xaufibo2.inp');
        assign(output,'xaufibo2.out');
        reset(input);
        rewrite(output);
        readln(n);
        f[1] := 'a';
        f[2] := 'b';
        for i := 3 to n do
                f[i] := f[i-1]+f[i-2];
        res1 := 0;
        res2 := 0;
        for i := 1 to length(f[n]) do
                if f[n][i]='a' then
                        inc(res1)
                else
                        inc(res2);
        write(res1,#32,res2);
        close(input);
        close(output);
end.

var n: longint;
function tongcs(u: longint): longint;
var s: longint;
begin
        s := 0;
        while u>0 do
        begin
                s := s+(u mod 10);
                u := u div 10;
        end;
        exit(s);
end;
begin
        assign(input,'ncount.inp');
        assign(output,'ncount.out');
        reset(input);
        rewrite(output);
        readln(n);
        write(tongcs(n));
        close(input);
        close(output);
end.

var n,s,i: longint;
function demcs(u: longint): longint;
var dem: longint;
begin
        dem := 0;
        while u>0 do
        begin
                u := u div 10;
                dem := dem+1;
        end;
        exit(dem);
end;
begin
        assign(input,'dcount.inp');
        assign(output,'dcount.out');
        reset(input);
        rewrite(output);
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s+demcs(i);
        write(s);
        close(input);
        close(output);
end.

uses math;
var x,a,b,c,rmin: longint;
begin
        assign(input,'xchange.inp');
        assign(output,'xchange.out');
        reset(input);
        rewrite(output);
        readln(x);
        rmin := high(longint);
        for a := 0 to (x div 50) do
                for b := 0 to (x div 20) do
                        for c := 0 to (x div 10) do
                        if (50*a+20*b+10*c=x) then
                                rmin := min(rmin,a+b+c);
        write(rmin);
        close(input);
        close(output);
end.

var n: longint;
function tonguoc(u: longint): longint;
var tong,i,s: longint;
begin
        tong := 0;
        for i := 1 to trunc(sqrt(n)) do
                if n mod i = 0 then
                begin
                        s := s+i;
                        if i<>(u div i) then
                                s := s+(u div i);
                end;
        exit(s);
end;
begin
        assign(input,'sdiv.inp');
        assign(output,'sdiv.out');
        reset(input);
        rewrite(output);
        readln(n);
        write(tonguoc(n));
        close(input);
        close(output);
end.