1 Основное меню
2 Вложенное меню
3 Контекстное меню
4 Строка меню
Это алгоритм скорее всего
128=2^7
800x7=5600 бит/8=700 байт = 0,68 кБ
<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.