Разработать программу, которая для любого х из промежутка (0; 3,14) определяет какая из двух величин больше сos(х) или tg(x)

Var
  x, cs, tg: real;

begin
  Write('Введите число в диапазоне [0..3.14]: ');
  Readln(x);
  if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
  else begin
    cs := cos(x); tg := tan(x);
    if cs > tg then Writeln('cosX > tgX')
    else if cs = tg then Writeln('cosX = tgX')
    else Writeln('cosX < tgX')
  end
end.

Тестовое решение:

Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX