Can someone write code to delete duplicated letters in turbo pascal?
Input - pppppppaaaaaaasssssscccccaaaallll
Output - pascal
Input - pppppppaaaaaaasssssscccccaaaallll
Output - pascal