10. Напишите программу вычисления выражения s = x³ + x⁵ + xⁿ, где x и n вводятся с клавиатуры. Используйте подпрограмму вычисления степени.

Создадим функцию Power, которая вычисляет целую неотрицательную степень умножением в цикле.

program SumPowers;

var
  x, n, s: integer;

function Power(a, p: integer): integer;
var
  i, result: integer;
begin
  result := 1;
  for i := 1 to p do
    result := result * a;
  Power := result;
end;

begin
  readln(x, n);
  s := Power(x, 3) + Power(x, 5) + Power(x, n);
  writeln(s);
end.

После ввода значений программа вычисляет три степени и складывает их: s = x³ + x⁵ + xⁿ.

Ответ: программа вычисляет заданное выражение.