Даны два числа x, y целого типа. Вывести True если среднеарифметическое является ли целым числом, в противном случае вывести False — Pascal(Паскаль)

uses crt;
var
 x,y: Integer;
Begin
clrscr;
WriteLn('x:');
ReadLn(x);
WriteLn('y:');
ReadLn(y);
if((x+y) mod 2 = 0) then
 WriteLn('TRUE') else
WriteLn('FALSE');
ReadLn;
end.