Безумно нужна ! написать программу от раздела описания переменных используемых в программе и до вывода результата следующего выражения: в=(tg x + cos (x - in y)) : x2 (икс в квадрате).

Var
    x, y: real;

begin
    readln(x, y);
    writeln('B = ', (tan(x) + cos(x - ln(y))) / x / x);
end.

если правильно поняла формулу