График в Паскале

[Рафинур]

и Снова здраствуйте. У меня вопрос:
Как будет (ссылка ниже) вот эта функция выглядеть в коде программы?
т.е как её написать?

[ROMA2PVT]

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

function Power(x,y,k:real):real;
begin
  if x=0 then Power:=0
    else
      if x>0 then Power:=exp(ln(x)*(y*k))
        else
           Power:=-exp(ln(abs(x))*(y*k));
end;

Var
  a,e,l,b:integer;
  z:real;
begin
   write('E:=');
     readln(e);
       write('A:=');
         readln(a);
           write('L:=');
             readln(l);
               write('B:=');
                 Readln(b);
                   z:=(ln(abs(exp(ln(b+(a*Power(e,a,l)))/3))))/(a*l-1);
                     writeln(z:1:3);
end.

Ну как то так.

[Рафинур]

сенк! +1 репа от меня!