Дано трёхзначное число N определить является ли сумма первой и последней четным?

//Pascalvar N: integer;beginwrite('Введите число:'); readln(N);writeln(N div 100); writeln(N mod 10);if ((N div 100)+(N mod 10)) mod 2 = 0 then   writeln('Сумма четная')else   writeln('Сумма нечетная');end.