Помогите в решении задачи PASCAL!

С клавиатуры вводится последовательность чисел, признак конца ввода "." определить сумму кодов символов стоящих в чётных позициях. Использовать циклы While и repeat until.