Summarize and Transpose rows to columns in R

Question

This is my input data:

Program = c("A","A","A","B","B","C")
Age = c(10,30,30,12,32,53)
Gender = c(