23.2.2

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

var x, z, a:real; //Объявляем переменные вещественного типа

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

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

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

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

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

writeln('Введите A:');

readln(a);

x:=-2.75; //Присваиваем минимальное значение переменной x (по условию -2)

while x<8 do begin //Инициализируем цикл с предусловием

if cos(x)<>0 then

z:=(4*x+3*x+tan(x))/a; //Вычисляем значение функции z(x)

writeln('Для x = ', x:0:2, ' y(x) = ', z:0:10);

x:=x+0.75; //Увеличиваем x с шагом 0.75

end; //Завершение цикла

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