Как-то уж очень странно :
1. Никак не удаётся сдать эту задачу, перепроверено всё :
формулы (как рекурсивные так и нет), алгоритм... (эта
задача была решена на полуфинале участником нашей команды,
так вот он правильность алгоритма подтверждает).
2. К тому же очень настораживает, что на эту задачу 0% AC
(а кроме меня её пытались сдать ещё трое человек - я
посмотрел по монитору),  это ведь сравнительно простая
задача, на полуфинале её сдало много команд.
Ответьте, это я такой глупый или же где-то глюк?

Subj.

> Subj.

Are you sure?
var
    a,b,l1,l2,li,rmost: real;
    n,i: integer;

begin
    ReadLn(n, a);

    l2:=a;
    l1:=0;
    rmost:=0;

    for i:=3 to n do
    begin
        li:=2*l1-l2+2;

        l2:=l1;
        l1:=li;

        if li<0 then
        begin
            b:=-li/(i-1);
            if b>rmost then rmost:=b;
        end;
    end;

    b:=(i-1)*rmost+li;
    if b<0 then b:=0;

    WriteLn(b:0:2);
end.