Составьте программу вычисления значения функции y по формуле y=tgx-\x\ ( \-это модуль),для которой значение аргумента x введите с клавиатуры.

var x, y: real;

begin

  writeln('Введите x');

  readln(x);

  y:= (sin(x) / cos(x)) - abs(x); //sin(x)/cos(x) - это тангенс

  writeln(y);

end.