Определите, какую задачу решает данная программа:
var
n: longint;
sum: integer;
begin
readln\(n\);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln\(sum\);
end.

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