program sample
    implicit none
    character(100)::s1,s2,s3
    character(3)::ans
    integer(8) :: i,j,m,n
    integer(8),allocatable :: x(:),y(:)
  
    read(*,*) s1,s2,s3
    
    ans(1:1)=char(ichar(s1(1:1))-32)
    ans(2:2)=char(ichar(s2(1:1))-32)
    ans(3:3)=char(ichar(s3(1:1))-32)
    
  
    write(*,'(a)') ans
  
    stop
end program sample
  

