Составьте программу вычисления значения функции 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.