Помогите решить уравнение в borland pascal! Нужно очень срочно!

а) не вижу уравнения, это функция
б) к тому, если нужны данные результаты, записанная неправильно

Программа, дающая результаты, соответствующие таблице:

var i:integer; x:real;
begin
for i:=1 to 14 do writeln(i/10:4:1,
-exp(ln(abs(1-exp(2*i/10)))/5)/sqr(tan(i/10)):9:3);
readln
end.