program name

    implicit none
    character(3) a,b
    character(6) c
    integer num,i
    logical :: flg = .false.
    read*, a,b
    a = a(1:len_trim(a))
    b = b(1:len_trim(b))
    c = a//b
    read (c,*) num
    do i = 1, 100, 1
        if ( num==i**2 ) then
            print*, "Yes"
            flg = .true.
            exit
        end if
    end do

    if ( .not.(flg) ) then
        print*, "No"
    end if

end program