[Bargest]

Код:

while (блаблабла) do
begin
   val:=val+val*40/100; // можно упростить до val*(1+40/100), будет 
                        // чутка быстрее.
   ...                  // можно написать val*1.4.
end;