program Lab1_1;

uses System.SysUtils;

var A,B : Double;
 IsCorrect : Boolean;
 AvgGeometrical, AvgHarmonical : Double;

begin
      IsCorrect := False;
      Repeat
        Writeln('Введите значение A');
        try
          Readln(A);
          if A > 0 then
            IsCorrect := True
          else
           Writeln('Переменная А должна быть больше 0');
        except
          Writeln('Переменная A должна быть числом');
        end;
      until IsCorrect;
      IsCorrect := False;
      Repeat
        Writeln('Введите значение В');
        try
          Readln(B);
          if B > 0 then
            IsCorrect := True
          else
            Writeln('Переменная B должна быть больше 0');
        except
          Writeln('Переменная B должна быть числом');
        end;
      until IsCorrect;
      AvgGeometrical := Sqrt(A*B);
      AvgHarmonical := 2/((A+B)/A*B);
      Writeln('Среднее геометрическое введённых чисел = ', AvgGeometrical:6:2);
      Writeln('Среднее гармоническое введённых чисел = ', AvgHarmonical:9:6);
      if AvgGeometrical > AvgHarmonical then
          Writeln('Среднее геометрическое введённых чисел больше их среднего гармонического')
      else
          Writeln('Среднее геометрическое введённых чисел меньше их среднего гармонического');
      Readln(A);
end.