[center][center]var a,b,res1,i:integer ;
res2:real ;
begin
write('entrez a=') ;
readln(a);
write('entrez b=') ;
readln (b) ;
if b<>0 then
begin
if a=o then
begin
writeln(a, '**' ,b, '=' ,0) ; readln ;
end
else
begin
res1:=a;
for i:=1 to b-1 do
res1:=resl*a;
writeln(a, '**' ,b, '=' ,res1);
res2:=int(exp(b*ln(a))) ;
write('exp** ' ,b, '*' , ' ln(' ,a, ') ','=' , res2) ;
readln;
end ;
end
else
begin
writeln(a, '**' ,b, '=',1) ;
readln(a, ' ** ' ,b, '=',1) ;
end;
end.