Возведение числа A в степень N

Задача

Составить программу для возведения числа A в степень N.

Решение

Для возведения числа A в степень N, необходимо число A умножить на самого себя N раз, т.е. организовать цикл по умножению числа A.

Пример

Uses Crt;
Var
	a,n,i,p: Integer;
Begin
	ClrScr;
	Write('n=');
	Readln(n);
	Write('a=');
	Readln(a);
	p:=1;
	For i:=1 To n Do p:=p*a;
	Write('p=',p);
	Repeat Until KeyPressed
End.

Описание примера

Данный пример сильно ограничен, так как допустимые значения для степени должны быть больше или равны нулю, т.е. N>=0, в противном случае программа вернет неправильный результат. Также все переменные являются целыми числами, что тоже ограничивает диапазон применения программы.