Составьте программу, которая определяет, сколько слагаемых должно быть в сумме…

Нам это тоже задовали под буквой А я тож не знаю, а вот под буквой Б напишу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.