Дано шестизначное целое число N, в десятичной записи которого нет нулей. Необходимо определить минимальное трехзначное число, которое можно увидеть в десятичной записи числа N. Например, для N=915391 - результат 153

Var i, n, m, j, t:integer; d:array[1 ... 6] of integer; beginn: = 951259; repeat m: = m + 1; d[m]: = n mod 10; n: = n div 10; until n = 0; writeln (d) ; for i:=1 to m do for j:=2 to m do beginif d[j-1]> d[j] then begint: = d[j-1]; d[j-1]: = d[j]; d[j]: = t; end; end; for i:=1 to 3 do write (d[i]) ; end.