нам это тоже задовали под буквой А я тож не знаю,а вот под буквой Б напишу program prim; var i,sum,n,x  : integer; begin     write('n = ');     readln(n);     x:=2;     sum:=2;     i:=1;     while sum<=n do     begin     x:=x+2;     i:=i+1;     sum:=sum+x; end;     writeln(i,'слагаемых'); end.