I haven't learned the part of entering positive integers. I don't know where you want to enter a number.

You can use the following to judge the number of digits.

do i= 1，999

if(x/( 10.0 * * I)& lt； 1.0)

Write (*, *)' Numbers', i.

endif

Endor