program ejercicio4implicit none!este programa envia el nombre de un usuario y su sueldo semanalcharacter(len=20):: Nombreinteger:: dias,sueldot, sueldod=110write(*,*) "por favor introduce tu nombre"read(*,*) Nombrewrite(*,*) "introduce el numero de dias que laboraste en la semana"read(*,*) diassueldot=dias*sueldodprint*, Nombre,"tu sueldo total en la semana es de",sueldotread(*,*) end program