program inputoutput

	integer, parameter :: MAXSIZE=5
	integer i1
    	real r1
	character c
	integer i

	character, dimension(MAXSIZE) :: str, str2  ! Character strings
	
	write(*,*) 'Enter an integer: '
	read(*,*) i1 
	write(*,*) 'Value entered: ', i1

	write(*,*) 'Enter a float value: '
	read(*,*) f1
	write(*,*) 'Value entered: ', f1
	
	write(*,*) 'Enter a character: '
	read(*,*) c
	write(*,*) 'Character entered: ', c
	
	write(*,*) 'Enter 5 characters, 1 per line : '
	do i = 1, MAXSIZE
	     read(*,*) str(i)
	end do
	write(*,*) (str(i), i=1,MAXSIZE)
	
	end program