// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x, a) := ReadReal2('Введите через пробел х и а:');
Print(Tan(x) + Sin(9 * x) - Abs(a + x))
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x, a) := ReadReal2('Введите через пробел х и а:');
Print(Tan(x) + Sin(9 * x) - Abs(a + x))
end.
begin
writeln("Введите x,a: ");
readln(x, a);
out := sin(x)/cos(x)+sin(9*x)-abs(a+x);
writeln("Результат: ", out);
end.