Помогите решить задачу по Pascal
Вычислить и вывести на печать значение функции(картинка внизу) . Исходные данные X, A и B ввести с клавиатуры.

Спасибо огромное!

varx, a, b: Integer; y: Real;begin//writeln(x,a,b);ReadLn(x);ReadLn(a);ReadLn(b);y:= tg*x*exp(ln(a)*(b+1))*ln(a+b);WriteLn('Otvet y = 'y);