ПАСКАЛЬ ABC! Пожалуйста посчитайте ПОЖАЛУЙСТА С ЗАДАЧЕЙ ! Дано многозначное число, проверьте , является ли его сумма четной

var
x, sum:integer;
Begin
Write('Введите число '); Readln(x);
while (x > 0) do begin
  sum:= sum + x mod 10;
  x:=x div 10
end;
if (sum mod 2 = 0)then
  Writeln('YES')
else
  Writeln('NO');
end.