300 за решение: "найдите сумму цифр заданного 7-значного числа стоящие в разрядах сотен тысяч, сотен и десятков (1 234 567). "

Var a, count: integer;
begin
readln(a);
a:=a div 10;
count+=a mod 10;
a:=a div 10;
count+=a mod 10;
a:=a div 1000;
count+=a mod 10;
writeln(count);
end.