<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
Первым выполняется логическое умножение, т.е. B∧C
Провайдер
=============================================
Начало
Введение a, b
c=a+b
написать с
Конец