Untitled

program prova
implicit none


integer :: i, j, k
logical :: perfect


do i=1,100

        !per ogni numero da 1 a 100

        do j=1,10
        perfect=.false.
        k=j**2
        if(k==i) then
                print*, i, "quadrato perfetto"
                perfect=.true.
        end if
        end do

        if(perfect .eqv. .false.) then
        print*,i
        endif

end do


end program prova