{* Cреднее арифметическое *}

Unit CHISLA01;
Interface
Implementation
Begin
 writeln('Даны два целых числа. Найти их среднее арифметическое.');
End.

Program pas47775;

Uses chisla01.pas; {* Эту строку можно удалить *}
{Даны два целых числа. Найти их среднее арифмеическое.}
Var {* Необходимые переменные *}
  a : integer;
  b : integer;
Begin
  writeln('Введите 2 ненулевых числа:');
  readln(a, b);
  writeln; {* Вывод пустой строки *}
  writeln('Среднее арифметическое: ',(a + b) / 2);
  readln; {* Ждем подтверждения пользователя *}
End.