Phạm Đỗ Thắng

const
        fi='tinhs.inp';
        fo='tinhs.out';
var
        n,i:longint;
        s:real;
        f,g:text;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        s:=(n*(n+3))/(4*(n+1)*(n+2));
        writeln(g,s:0:2);
        close(f);close(g);
end.

const
        fi='merges.inp';
        fo='merges.out';
var
        tam:longint;
        s,a,b,ab,ba:string;
        f,g:text;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,s);
        tam:=pos(' ',s);
        a:=copy(s,1,tam-1);
        b:=copy(s,tam+1,length(s)-tam);
        ab:=a+b;
        ba:=b+a;
        if ab>ba then write(g,ab);
        if ba>ab then write(g,ba)
        else write(g,ba);
        close(f);close(g);
end.

const
        fi='TRIAS.inp';
        fo='TRIAS.out';
var
        x1,x2,x3,y1,y2,y3,p:real;
        l1,l2,l3:real;
        f,g:text;
function dodai(u1,u2,v1,v2:real):real;
var
        s:real;
begin
        s:=sqrt(sqr(u1-u2)+sqr(v1-v2));
        exit(s);
end;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,x1,y1);
        readln(f,x2,y2);
        readln(f,x3,y3);
        l1:=dodai(x1,x2,y1,y2);
        l2:=dodai(x2,x3,y2,y3);
        l3:=dodai(x3,x1,y3,y1);
        if l1<(l2+l3) then
        if l2<(l1+l3) then
        if l3<(l1+l2) then
        p:=(1/2)*abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));
        if p<>0 then writeln(g,p:0:2)
        else writeln(g,'NONE');
        close(f);close(g);
end.

const
        fi='permax.inp';
        fo='permax.out';
var
        n,i,j,tam,k:longint;
        a:array[-5..100007] of longint;
        f,g:text;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        while n>0 do
        begin
                inc(k);
                a[k]:=n mod 10;
                n:=n div 10;
        end;
        for i:=1 to k-1 do
        for j:=i+1 to k do
        if a[i]<a[j] then
        begin
                tam:=a[i];
                a[i]:=a[j];
                a[j]:=tam;
        end;
        for i:=1 to k do
        write(g,a[i]);
        close(f);close(g);
end.

uses math;
const
        fi='delnmax.inp';
        fo='delnmax.out';
var
        n:string;
        i,j,k:longint;
        rmin,s:int64;
        f,g:text;
        a:array[-5..100007] of longint;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        rmin:=high(int64);
        for i:=1 to length(n) do
        begin
                k:=k+1;
                val(n[i],a[k]);
        end;
        for i:=1 to k do
        begin
                s:=0;
                for j:=1 to k do
                if i<>j then
                s:=s*10+a[j];
                rmin:=min(rmin,s);
        end;
        write(g,rmin);
        close(f);close(g);
end.