Ввести a>=1. Найти значение какого из выражений больше: 1/а или sin (а) - Pascal ABC

Формулировка задачи:

Ввести a>=1. Найти значение какого из выражений больше: 1/а чи sin(а). Проверьте пожалуйста.

                    Листинг программы
                
 
                        
                          
                    
var
   a: real;
begin
       Write('Введите a>=1:'); Readln(a);
       if a<1 then Writeln('Ошибка: а<1')
                else begin
       if 1/a>sin(a) then Writeln('1/a больше, чем sin(a)');
       if 1/a<sin(a) then Writeln('1/a меньше, чем sin(a)');
       end;
Readln;
end.

Решение задачи: «Ввести a>=1. Найти значение какого из выражений больше: 1/а или sin (а)»

Листинг программы

var a: real;
begin
Write('Введите a>=1 a=');
Readln(a);
if a<1 then Writeln('Ошибка: а<1')
else
 begin
  writeln('1/a=',1/a:0:4,' sin(a)=',sin(a):0:4);
  if 1/a>sin(a) then Writeln('1/a больше, чем sin(a)')
  else Writeln('1/a меньше, чем sin(a)');
 end;
end.

Объяснение кода листинга программы

Переменная a типа real используется для хранения значения, введенного пользователем.
С помощью функции Readln() происходит чтение значения переменной a с консоли.
Выполняется проверка условия a<1. Если это условие истинно, то выводится сообщение об ошибке 'а<1'.
Иначе, выполняется следующий блок кода:
- Выводится строка '1/a=',1/a:0:4,' sin(a)=',sin(a):0:4';
- Вычисляется значение 1/a и присваивается переменной 1/a.
- Вычисляется значение sin(a) и присваивается переменной sin(a).
- Выполняется сравнение 1/a > sin(a). Если это условие истинно, то выводится сообщение '1/a больше, чем sin(a)'.
- Если условие 1/a > sin(a) ложно, то выводится сообщение '1/a меньше, чем sin(a)'.
Конец программы.