Паскаль, ввести трёхзначное число

если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2

Program I_have_got_name;

var a:integer;

begin

write ('Введите целое число');

readln (a);

if ((a mod 10) + (a mod 100 div 10) + (a div 100)) mod 2 = 0 then

writeln (a+2) else

Writeln (a-2);

end.