В программе Паскаль
Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 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.