var x, y: real;
begin
writeln('Введите x');
readln(x);
y:= (sin(x) / cos(x)) - abs(x); //sin(x)/cos(x) - это тангенс
writeln(y);
end.
var x, y: real;
begin
writeln('Введите x');
readln(x);
y:= (sin(x) / cos(x)) - abs(x); //sin(x)/cos(x) - это тангенс
writeln(y);
end.