Question

Помогите пожалуйста!!!! Информатика
Паскаль.
Вводятся два целых числа. Выведите разность между средним геометрическим двух чисел и меньшим числом. ​

Answer 1

var a,b:integer;

var sr,otvet:real;

begin

 writeln('Введите 2 целых числа:');

 readln(a,b);

 sr:= (a+b)/2;

 if a>b then

   begin

   otvet:= sr-b;

   writeln(otvet);

   end

 else

   begin

   otvet:= sr-a;

   writeln(otvet);

   end

end.