var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
Если не нужен вывод самих чисел, закомментируйте строки 8, 12, 15
const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.
1-десяток тысяч
3-единица тысяч
7-сотня
7-десяток
7-единица