Написать программу в паскале: Вычислить сумму 2^2+2^3+2^4 + ... + 2^10. Операцию возведения в квадрат не использовать.

program zz1;

var s, i, v:integer; / / задаем переменные целого типа

begin

s:=0; / / задаем начальное значение для переменной суммы

v:=2; / / задаем начальное значение для переменной степени числа

for i:=2 to 10 do / / организуем цикл, в котором переберем все степени от двух до десяти

begin

v:=v * 2; / / получаем следующее слагаемое числа, умножая его каждый раз на два

s:=s + v; / / добавляем полученное слагаемое в сумму

end;

writeln (' полученная сумма = ', s); / / выводим ответ

end.