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;

    for Num := Num downto 10 do
    begin
        Res := (Num mod 10) + Res;
        Num := Num div 10;
    end;

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