  integer::a,b
  real::s

  read(*,*)a,b
  
  if(b<10)then
     a=a*10+b
  else
     if(b<100)then
        a=a*100+b
     else
        a=a*1000+b
     end if
  end if

  s=sqrt(real(a))
  write(*,*)s
  a=int(s)
  write(*,*)a
  
  if(s==a)then
     write(*,*)"Yes"
  else
     write(*,*)"No"
  end if
  
end program
