program L_2_D;

uses System.SysUtils;

var
    Num, Res: Integer;
    IsCorrect: Boolean;

begin
    Writeln('Данная программа выводит на экран законопеременную сумму цифр данного натурального числа n.');
    Res := 0;
    repeat
        Write('Введите положительное целое число (натуральное): ');
        IsCorrect := True;
        try
            Read(Num);
            if Num <= 0 then
            begin
                Writeln('Не является натуральным числом');
                IsCorrect := False;
            end;
        except
            Writeln('Не является натуральным числом');
            IsCorrect := False;
        end;
    until IsCorrect;

    while Num > 10 do
        begin
            Res := (Num mod 10) + Res;
            Num := Num div 10;
        end;
    Res := Res + Num;
    Writeln('Сумма цифр данного числа: ', Res);
    Readln;
    Readln;
end.