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

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.