Впрограмме паскаль дано трёхзначное число. определите, является ли сумма цифр этого числа чётным числом. если да, то выведите 1, иначе выведите 0.

Var x,sum:integer;
begin
  readln(x);
  sum:=1;
  while x>0 do begin
    sum+=x mod 10;
    x:=x div 10;
  end;
  writeln(sum mod 2);
end.