Написание модулей...

unit step;         {заголовок модуля}
 
interface
     { описание видимых программных элементов модуля }
      function powerint(a,n:integer):longint;
      function powerreal(a,b:real):real;
 
implementation
     { операторы инициализации элементов модуля }
     function powerint(a,n:integer):longint;
     begin
          if n=0 then powerint:=1
                 else powerint:=a*powerInt(a,n-1);
     end;
     function powerreal (a, b : real) : real;
     begin
          if a > 0 then powerReal := exp (b * ln (a))
                   else
               if a < 0 then powerReal := exp (b * ln (abs (a)))
      else
          powerReal := 0
      end;
end.

uses step;
 
begin
 
writeln(powerint(2,7));
writeln(powerReal(0.2,2/5)) ;
end.

if (x1=0)and(y <=0) then writeln('Функция не определена')
else if (x1=0)and(y > 0)then rez:=0
else if (x1 <> 0)and (y=0)then rez:=1
else if x1 < 0 then rez:=(-1)*Exp(y*Ln(abs(x1)))
else if x1 > 0 then rez:=Exp(y*Ln(x1));

unit step;
 
interface
    function powerint(a:real; n:integer):real;
    function powerreal(a,b:real):real;
implementation
function powerint(a:real; n:integer):real;
begin
    if n=0 then powerint:=1
    else
    if n=1 then powerint:=a
    else
    if n>1 then powerint:=a*powerint(a,n-1)
    else
    if n<0 then powerint:=1/powerint(a,abs(n));
end;
function powerreal (a, b : real) : real;
begin
    if a>0 then powerreal:=exp(b*ln(a))
    else
    if a<0 then writeln('NET TAKOGO LOGORIFMA')
    else powerreal:=0
end;
end.

Uses STEP;
var rez:real;
a,b:integer;
begin
writeln('VVedite a,b');
readln(a,b);
rez:=powerreal(a,3/2)+powerint(1-b,-4);
writeln;
writeln;
writeln(rez:4);
readln;
readln;
end.