Помогите с информатикой пожалуйста (Написать короткую програмку в 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.