Program P11;
var P, x : real; {описываем переменные Р и х как вещественные числа}
b : integer; {переменную b как целое число}
Begin
Write ('Введите значение переменной Х:');
Readln(x); {Получаем значение переменной Х}
P:=0; {Обнуляем значение переменной Р}
For B:=1 to7 do {Переменная В изменяется от 1 до 7, для этого используем цикл с параметром}
P:=P+(sqr(x)+2*b); {Значение переменной P увеличиваеться с каждым проходом на X^2+2b, т.е. считается сумма Х^2+2b для всех b от 1 до 7}
Writeln('P=', P:3,2); {Выводим значение Р}
End.