program prob1
    implicit none
    character(1) :: a, b, c
    character(3) :: s
    read(*,*) a, b, c

    s = achar(iachar('A') + iachar(a) - iachar('a'))
    s = s(1:1) // achar(iachar('A') + iachar(b) - iachar('a'))
    s = s(1:2) // achar(iachar('A') + iachar(c) - iachar('a'))
    write(*,'(a)') s

    stop
contains
end program prob1