Даны a и n. вычислите a(в степени n) без использования логарифма и экспоненты. паскаль

1

2

3

4

5

6

7

8

9

10

11

12

13

var a,p:real;

   n,i:integer;

begin

write('Введите а:');readln(a);

write('Введите n:');readln(n);

p:=a;

if n<>0 then for i:=2 to n do p:=p*a

       else p:=1;  

writeln(a,'^',n,'=',p);

end.