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

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

Program pas48002;

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