Question

Помогите решить задачу Pascal

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:= ReadInteger('n =');
var tmp := n;
var sum := 0;
while (tmp > 0)do
  begin
    sum += tmp mod 10;
    tmp := tmp div 10;
  end;
tmp := (sum div 2) + 1;
while (tmp > 1) do
  begin
    if (sum mod tmp = 0) then
                            begin
                              Writeln(tmp);
                              halt;
                            end;
    dec(tmp);
  end;
  Writeln('Not Found, sum is simple number');
end.