23.1.1

program nl_23_1_1; //Задаём имя программы

const       //Объявляем константы

A=1.5;

B=2;

C=2.5;

function tan(q:real):real; //Объявляем функцию тангенса угла

begin //Начало тела функции

tan:=sin(q)/cos(q); //Вычисляем тангенс

end; //Конец тела функции

var x,m:real; //Объявляем переменную x

begin   //Начало тела программы

writeln('Введите x:'); //Вывод сообщения для пользователя

readln(x);   //Ввод х из консоли

if cos(x)=0 then //Защита от деления на ноль

writeln('Косинус угла равен нулю!') else

writeln('y = ', 1/cos(x)+ln(tan(A/B))+C*x:0:10); //Вывод значения функуии y(x)

end. //Конец тела программы