Используя функцию нахождения минимума двух чисел, составьте программу , которая из трех введенных цифр составляет наименьшее трехзначное число

P.S. Благодарность и лучший ответ не помешает.

Ну не сильно отличается от предыдущего решения
uses crt;
var a,b,c,d,x,q:integer;
begin
     readln(a,b,c);
     for x:=1 to 3 do
     begin
          if a>b then begin
             q:=a;
             a:=b;
             b:=q;
          end;
          if b>c then begin
             q:=b;
             b:=c;
             c:=q;
          end;
     end;
     d:=100*a+10*b+c;
     writeln(d);
end.