program power;
uses crt;

{--------------------------------------------------------------------------


                        by 

--------------------------------------------------------------------------}


VAR  b,result:real;
x,y:integer;
quit : char;
begin

function expon : real;
begin
result := 1;
for y := 1 to x do result := result * b;
expon := result;
end;

repeat
clrscr;
write ('What''s the base? --->  ');
readln(b);
write ('What''s the exponent? --->  ');
readln (x);

answer := expon;

writeln;
writeln;
writeln ('The result is ',expon:0:5);

writeln;
writeln;
write ('Do you want to quit? --->  ');
quit := upcase(readkey);
until quit = 'Y';

end.