Program main
Implicit none
INTEGER::n,n1,r,q,c=0 ,x
Print*,"ENTER AN INTEGER"
read*,n
x=n
n1=n*n 
DO WHILE(n/=0)
r=mod(n,10)
c=c+1 
n=n/10
end do
q=n1/(10**c) 
r=mod(n1,(10**c))
c=q+r
if(c==x)then
print*,"kaprekar  Number"
else
print*,"Not kaprekar number"
end if
end program main