<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
Обязательный атрибут почтового адреса,по-английски называющийся "at":@?
<span>обь заходит в расширение и пропускает мир и енисей, затем обь продолжает свое плавание, а мир и енисей поднявшись вверх пропускают в расширение канала восток. после чего мир и енисей продолжают своё плавание восток - своё.</span>