Разработать программу, которая для любого х из промежутка (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