Определить число из заданного множества с минимальной суммой цифр.
Написать на Паскале.

СПАСИИИБОО!

Пожалуйста

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017// Внимание! Если программа не работает, обновите версию!function s(n:integer):integer;begin  Result:=0;  n:=Abs(n); // защита от дурака  while n>0 do begin    Result+=n mod 10;    n:=n div 10    endend;begin  var (x0,xn,h):=ReadInteger3('Начальное значение, конечное значение, шаг:');  var n:=x0;  var xm:=s(x0);  while x0<=xn do begin    x0+=h;    var sd:=s(x0);    if sd<xm then (xm,n):=(sd,x0)    end;  Writeln('Число с минимальной суммой цифр: ',n)end.Пример:Начальное значение, конечное значение, шаг: 78 132 3Число с минимальной суммой цифр: 102