REAL A
WRITE(6,*) "Entre com o valor de A ="
READ(*,*) A

OPEN(7, file="saida5b.txt")
WRITE(7,*) "Valor de A = ", A
CLOSE(7)

END
