Для Х из интервала (-2;8) с шагом 0,75 вычислить У=(4Х-3Х+tg(X))/A, где А вводится с клавиатуры.

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.