Дано натуральное число 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 сумма цифр числа четная

program bapehbe;

var

    l, b, s : integer;

    o : real;

begin

    writeln (' skolko litrov varenya v tazy? ');

    readln (l);

    writeln (' kakaya emkost banok? ');

    readln (b);

    s: = l div b;

    o: = l mod b;

    writeln (' polnih banok_', s);

    writeln (' litrov ostaloc_', o: 2: 2);

    readln;

end. 

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.