Question

Помогите с информатикой пожалуйста (Написать короткую програмку в FreePascal)
Ввести 2 числа, если сумма четная делить на 2, если нет оставить без изменений. Заранее спасибо)

Answer 1

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.