Синформатикой (написать короткую програмку в freepascal) ввести 2 числа, если сумма четная делить на 2, если нет оставить без изменений. заранее )

Var
  x,y:integer;
begin
  writeln('Введите 1-ое число');
  readln(x);
  writeln('Введите 2-ое число');
  readln(y);
  if ((x+y)mod 2)=0 then writeln('ответ: ',(x+y)/2)
  else writeln('ответ: ',x+y) 
end.