Объяснение:

Program zero;

Var a, n, i:Integer;

Begin

Whiteln('Введите число: ');

Readln(a);

Whiteln('Введите степень: ');

Readln(n);

If (a>0) and (b>0) then

Begin

If (a<=9) and (n<=19) then

Begin

For i:=1 to n do

a:=a*a

End

else Writeln('Числа не соответствуют условию!!! ');

End

else Writeln('Числа не соответствуют условию!!! ');

Whiteln('Число в степени: ', а);

Readln

End.