Дано натуральное число. определить верно ли что сумма его цифр есть число не четное.

var

a, x:integer;

i, s:integer;

begin

write ('Введите число ') ;

readln (a) ;

x:=a;

s:=0;

while (x0) do begin

s : = s + (x mod 10) ;

x : = x div 10;

end;

writeln ('Сумма цифр числа ', a,' = ', s) ;

if (s mod 2 0) then

writeln ('Верно')

else writeln ('Неверно') ;

end.