Найти сумму цифр введенного с клавиатуры натурального числа - Pascal ABC

Формулировка задачи:

Найти сумму цифр введенного с клавиатуры натурального числа.Вывести на экран найденную сумму цифр числа и сообщение является ли данная сумма четной или нечетной.

Решение задачи: «Найти сумму цифр введенного с клавиатуры натурального числа»

Листинг программы

var
s:string;//Переменная для хранения введенного числа
x,i:byte;//x - переменная для хранения текущей цифры, i - итерационная переменная
sum:integer;//Сама сумма
begin
readln(s);//Читаем число
sum:=0;
x:=0;
for i:=1 to length(s) do//Проходимся по всему числу
begin
x:=strtoint(s[i]);//Заносим в x текущую цифру
sum:=sum+x;//Суммируем
end;
writeln(sum);
if sum mod 2=0 then writeln('Сумма четная') else writeln('Сумма нечетная');
end.

Объяснение кода листинга программы

Создается переменная s типа string, которая будет хранить введенное с клавиатуры число.
Создаются две переменные x и i типа byte. Переменная x будет использоваться для хранения текущей цифры, а переменная i - для итерации.
Создается переменная sum типа integer, которая будет хранить сумму цифр числа.
С помощью функции readln(s) считывается число с клавиатуры и сохраняется в переменную s.
Инициализируется переменная sum значением 0, а переменная x - значением 0.
Запускается цикл for, который будет выполняться столько раз, сколько символов в числе.
В каждой итерации цикла значение текущего символа числа преобразуется в целое число с помощью функции strtoint(s[i]) и сохраняется в переменную x.
Значение переменной x добавляется к переменной sum, чтобы получить сумму цифр числа.
После завершения цикла выводится значение переменной sum с помощью функции writeln(sum).
С помощью оператора % проверяется, является ли сумма четной или нечетной. Если остаток от деления равен 0, то выводится сообщение Сумма четная, иначе выводится сообщение Сумма нечетная.
Программа завершается.