program-id.y.data division.working-storage section.
1 s pic xx.
procedure division.accept s
if s="A"display"A
AA
B
B
BB
A"else display"AAB
BAAB
A".