Для заданного числа х вывести ** экран меньшее из значений 1/х и sin x

Question

Для заданного числа х вывести на экран меньшее из значений 1/х и sin x

Answer 1

Var x: real;
begin
write('Введите х: ');
readln(x);
if ( 1/x ) < sin(x) then writeln('1/x = ', 1/x)
else writeln('sin(x) = ', sin(x));
end.