ДАЮ 15 баллов!!!
Разработайте алгоритм и программу решения задачи в PascalABC.NET .

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (s, ss, k) := (ReadInteger('s='), 0, 3);

 while ss <= s do

 begin

   ss += k;

   k+=2

 end;

 ss.Println

end.