Нужно создать программу в pascalABC. Условие задачи: Вводится 3-ёх значное число, нужно найти сумму только чётных чисел, если их нет, то сообщить об этом.

Ввод: 123

Вывод: 2

var

number, sum:integer;

begin

readln (number) ;

sum : = 0;

while (number 0) do begin

if (number mod 10) mod 2 = 0 then

sum : = sum + (number mod 10) ;

number : = number div 10;

end;

if sum 0 then

writeln (sum)

else writeln ('Четных цифр в числе нет!') ;

end.