program Laba1_1;

{$APPTYPE CONSOLE}

{$R *.res}
uses
   System.SysUtils;
var
   AvHarmonic, AvGeometric, FirstNum, SecondNum: Double;
   IsCorrect: Boolean;
begin
   IsCorrect := False;
   Writeln('Тема: Сравнение среднего геометрического и среднего гармонического');
   repeat
      try
         Writeln('Введите первое число');
         Read(FirstNum);
         Writeln('Введите второе число');
         Read(SecondNum);
         IsCorrect := True;
      except
         Writeln('Введённое значение должно быть положительным числом!')
      end;
      if (FirstNum < 1) or (SecondNum < 1) then
         Writeln('Оба числа должны быть положительными!');
   until (IsCorrect and (FirstNum > 0) and (SecondNum > 0));
   AvHarmonic := (2 / ((1 / FirstNum) + (1 / SecondNum)));
   AvGeometric := ((FirstNum * SecondNum) / 2);
   Writeln('Среднее гармоническое равно ', AvHarmonic:6:3);
   Writeln('Среднее геометрическое равно ', AvGeometric:6:3);
   if AvGeometric > AvHarmonic then
      Writeln('Среднее геометрическое не меньше среднего гармонического')
   else
      Writeln('Среднее геометрическое меньше среднего гармонического');
   Readln;
   Readln;
end.