модуль в паскаль

[veronishka888]

создать модуль, который вычислял бы корни, степеней целых и вещественных чисел. Где будет 3 функции: 1. возвышение в степень натур числа в натур степень. 2. возвышение в степень веществ число в любую степень.3. проверка- чтобы в степень не возводилось отрицательное число.
Заранее спасибо!

[Leshii]

возвышение

Разрешите вас возвысить?) прошу не обижаться, что сами набросали?

[veronishka888]

да, сама, ну что вы мне поможите????

[Hacker19_90]

да, сама, ну что вы мне поможите????

Что "сама"?
Вообще-то вас не спрашивали сами вы или не сами,
Вас спрашивали вы сделали что нибудь? Есть какие-то наработки?
И что у вас вызывает затруднение?

[veronishka888]

извините, я вас не поняла)
вот что у меня есть:

unit modul;
interface
function kor (a:real;n:word):real;
function step (a:real;b:real):real;
implementation
function kor (a: real; n:word):real;
var r:real;
begin
r:=exp(ln(abs(a))/n);
if a< 0 then
kor :=-r
else
kor:=r;
if a=0 then
kor:=0;
end;
function step (a:real;b:real):real;
var c :real;
begin
if a>0 then
c:= exp (b*in(a))
else
c:=0;
step :=c;
end;
end.

вот задача к нему:

uses modyl;
var c,d,f,g,m,n,y:real;
begin
writeln (c);
readln (c);
writeln (d);
readln (d);
writeln (f);
readln (f);
writeln (g);
readln (g);
writeln (m);
readln (m);
writeln (n);
readln (n);
y:=kor(d,c)+(kor((step(f,g)+ (kor(n,m),5));
readln (y);
end.

показывает ошибку в модуле, в чем дело не понимаю, помогите...