Написать подпрограмму, вычисляющую натуральную степень числа. паскаль написать программу на компьютере и проверить правильность работы вашей процедуры/функции, в этом случае в основной программе должны быть реализованы ввод исходных данных и вызов процедуры/функции.

Используем достаточно хорошо известный "индийский алгоритм" возведения в степень. я не буду здесь его приводить из-за достаточно большого объема рассуждений; все легко находится в интернет по фразе "индийский алгоритм возведения в степень". function power(x: double; n: integer): double; var   p: double;   flag: boolean; begin   p : = 1; flag : = true;   while flag do   begin       if odd(n) then p : = p * x;       n : = n div 2;       if n > 0 then x : = x * x else flag : = false   end;   power : = p end; var   x: double;   n: integer; begin   writeln('введите число и натуральную степень, в которую его надо возвести');   readln(x, n);   writeln('результат: ', power(x, n)) end. тестовое решение: введите число и натуральную степень, в которую его надо возвести 3.6 11 результат: 1316217.03842267 точный результат равен 1316217.03842267136.

Блин, мне кажется, или я не поняла смысл вопроса, какое число зачем считать и т.д.