Дано натуральное число n. определить является ли сумма этих чисел нечетным

Var   i, n, k, c, e: integer;   s: string; begin   write('введите целое положительное число: ');   readln(n);   str(n, s);   c : = 0;   for i : = 1 to length(s) do   begin       val(s[i], k, e);       c : = c + k   end;   if c mod 2 = 0 then writeln('сумма цифр числа четная')   else writeln('сумма цифр числа нечетная') end. тестовое решение: введите целое положительное число: 534643 сумма цифр числа нечетная введите целое положительное число: 23524523 сумма цифр числа четная

телефон      |         зонтик

наушник       |       спица

корпус         |       стержень

диск             |       купол

микрофон   |       рукоятка

провод         |       рубка

             

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.