помогите это безотлагательно (информатика)В программку вводится натральное число . Сделать так

на каком языке программка?

begin var n := readInteger('Введите естественное число:'); if n <= 0 then exit; var s := 0; while n > 0 do begin var k := n mod 10; if k.IsEven then s += k; n := n div 10 end; Println('Сумма четных цифр:', s)end.

Сумма четных цифр натурального числа. PascalABC.NET

include lt;iostreamgt;

int main()

   unsigned int

       sum = 0,

       number;

   std::cin gt;gt; number;

   while(number gt; 0)

   

       if((number % 10) % 2 == 0)

           sum += number % 10;

       number /= 10;

   

   std::cout lt;lt; "Сумма четных цифр числа = " lt;lt; sum lt;lt; std::endl;