var
x,y,A:real;
BEGIN
write('Введите A = ');
readln(A);
x:=-2; {начальное значение x}
repeat {НАЧАЛО ЦИКЛА }
y:=(4*x-3*x+sin(x)/cos(x))/A;
writeln('x = ',x:3:2,' y = ',y:3:2);
x:=x+0.75; {изменить x }
until x>8; {КОНЕЦ ЦИКЛА }
readln;
END.