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

var a,x:integer; i,s:integer;begin write('Введите число '); readln( a );  x:=a; s:=0; while ( x<>0 ) 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.