<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>
B3: =СТЕПЕНЬ(А3;2) ⇒ 7^2 ⇒49
C3: =СУММ(А3:В3) ⇒ 7+49=56
D3: =ЕСЛИ(С3<60;МАКС(А3:С3);МИН(А3:С3)) ⇒ <span>МАКС(А3:С3) </span>⇒ 56
Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.