Установить, к чему ближе по абсолютной величине наименьшее из двух чисел — к их среднему арифметическому или среднему геометрическому — Pascal(Паскаль) 

var
  a, b: real;
  average: real;
  geometricmean: real;
  minstr: string;

function min(a, b: real): real;
begin
  min := a;
  minstr := 'Pervoe';
  if (b < a) then
  begin
    min := b;
    minstr := 'Vtoroe';
  end;
end;

begin
  write('Vvedite 1-e chslo: ');
  readln(a);
  write('Vvedite 2-e chslo: ');
  readln(b);
  average := (a + b) / 2;
  geometricmean := sqrt(a * a + b * b);
  a := min(a, b);
  writeln('Naimenshee chislo - ', minstr, ' (', a:0:3, ')');
  write('Blize k srednemu ');
  if (abs(average - a) < abs(geometricmean - a)) then
  begin
    writeln('arifmeticheskomu (', average:0:3, ')');
  end
  else
  begin
    writeln('geometricheskomu (', geometricmean:0:3, ')');
  end;
  readln;

end.