Данная функция подходит для подсчета суммы цифр любого неотрицательного числа, так что проверку на неотрицательность и пятизначность нужно проводить перед вызовом. function sumnumbers(number : integer) : integer; begin result : = 0; while number < 0 do // проходит по всем числа, начиная с единиц begin result : = result + number mod 10; number : = number div 10; end; end;