Program abc;
var a, b, c: integer;
begin
a:=15;
b:=50;
c:=35;
write(a+b+c, 'Всего учеников');
end.
2(x+3)²+2(x+3) - (2(x+2)²+(x+2))-64=0
2(x²+6x+9)+2x+6-2(x²+4x+4)-x-2-64=0
2x²+12x+18+2x+6-2x²-8x-8-x-66=0
5x=50
x=10
sum m k
0 10 0
11 8 1
10 6 2
9 4 3
8 2 4
7 0 5
далее условие k < 5 не выполняется, выходим из цикла, печатаем значение sum = 7, конец