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

Var

x, cs, tg: real;

begin

Write ('Введите число в диапазоне [0 ... 3.14]: ') ;

Readln (x) ;

if (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