Безотлагательно ПОМОГИТЕ ПОЖАЛУЙСТА!Найти , образует ли сумма цифр естественного числа нечетное

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (n, s) := (ReadInteger('Введите естественное число'), 0);

 while n gt; 0 do

 begin

   s += n mod 10;

   n := n div 10

 end;

 if s.IsOdd then Print('Сумма цифр нечетная')

 else Print('Сумма цифр четная')

end.

Введите естественное число 3563423

Сумма цифр четная

var a,x,sum:integer;

begin

 writeln('введите целое число');

 readln( a );  

 x:=a;

 sum:=0;

 while ( xlt;gt;0 ) do  

 begin

   sum := sum + (x mod 10);

   x := x div 10;

 end;

 if sum mod 2=0 then writeln('Сумма цифр числа образует четное число')

 else writeln('Сумма цифр числа образует нечетное число');

end.