Разработать программу, которая для любого х из промежутка (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')  endend.Тестовое решение:Введите число в диапазоне [0..3.14]: 1.58cosX > tgX