Паскаль, ввести трёхзначное число
если сумма цифр числа чётная, то увеличить на 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.