program probA
    implicit none
    integer::i
    character(len=21)::S
    character(len=1)::v(3)
    read(*,*) S

    do i = 1,3
        v(i) = S(i:i)
    end do

    write(*,*) v
    stop
end program