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

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