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