program name

    implicit none
    character(3) a,b
    character(6) c
    integer(8) num,i
    integer(8) hei(1000)
    do i = 1, 1000, 1
        hei(i) = i**2
    end do
    read*, a,b
    c = a//b
    read (c,*) num
    if ( count(hei==num**2)==1 ) then
        print*, "Yes"
    else
        print*, "No"
    end if

end program