Помогите,пожалуйста)
Даны три четырехзначных,целых числа.Нужно вывести число с наименьшей суммой цифр.
Скиньте решение в паскале)
Заранее спасибо)

program z;var x:array[1..3] of integer;s,min,i_min,i:integer;beginmin:=37; {начальное значение минимальной суммы выбрать больше самого большого из 4х-значных чисел 9999, т.е. 9+9+9+9=36} for i:=1 to 3 do  beginreadln(x[i]); {ввести очередное число}s:=x[1] mod 10 + x[i] div 10 mod 10 + x[i] div 100 mod 10 + x[i] div 1000; {считаем сумму цифр}if s<min then begin i_min:=i; min:=s; end; {если сумма меньше текущего значения минимума, то считать эту сумму минимальной и запомнить в i_min номер текущего числа}end;writeln(x[i_min]); {вывести число с номером i_min как число с минимальной суммой его цифр}end.