program main

write(*,'(I0.4)') 12345
write(*,'(I0.4)') 2
write(*,'(I0.3)') -3
write(*,'(A4,I0.2,A4)') "file", 4, ".txt"

end program main