program main 

implicit none 
integer :: i,a,b
real ::m
print *, "enter number and the power " 
read*,a,b 
m=1 
do i=1,abs(b)
if(b.EQ.0) then 
m=1
elseif(b>0)then
m=m*a 
else
m=m/a
end if
end do 
print*,"the answer is ",m

end program main