Объяснение:

var a, b, c, d, A, F real

begin

read(A) ;

b:=A mod 10;

c:= A mod 100;

d:= A mod 1000;

a:= A div 1000;

дальше последовательно сравниваешь и потом складываешь и выводишь сумму (F)

пример

if a<b<d and c<b<d

F:=a+c

writeln('сумма наименьших чисел равна', F)