integer::N,P read *,N,P if(P.eq.N*P) then print '(a)','=' else print '(a)','!=' end if end