Помогите пожалуйста! Нужно ввести 5-е число. Вычислить сумму чисел стоящих на нечетных позициях.

var s,a,b,c:Integer;beginRead(s);a:= s div 10000;b:= s div 100 mod 10;c:= s mod 10;WriteLn(a+b+c);end.Жмякаем 'Лучший'