1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
n: Longint;
m, d, s: Integer;
begin
Write('Введите число: '); ReadLn(n);
m:=n mod 10;
while n>0 do begin
d:=n mod 10; n:=n div 10;
if m=d then Inc(s,d)
else if m>d then begin
m:=d; s:=d;
end;
end;
WriteLn('Сумма наименьших цифр: ', s);
end.