Степени в паскале.!Ошибка в коде

[homa371]

program zadacha2;
uses math;
uses crt;
Procedure mat(var x,y,n:real);

begin

Procedure mat;
var per:real;
Begin

per:abs(x);
if x < 0 then pow:=(-1)*exp((n)*ln(per))
if x > 0 then pow:=exp((n)*ln(per));
l:=round(n);
if (l mod 2 = 0) then R:=Abs(pow);
if (n = 0) then pow:=1;

End;

clrscr;
write('Vvedite Y:');
readln(y);
write('Vvdeite stepen(N):');
readln(n);
writeln('x=y^n=',mat(x,y,n));
end.

Все вроде правильно сделал и библиотек подключил и т.д.,но выдает ошибку про begin : Error 36: BEGIN expected.
....?

[rubius2008]

program zadacha2;
uses math;
uses crt;
Procedure mat(var x,y,n:real);
var per:real;
Begin

per:=abs(x);
if x < 0 then pow:=(-1)*exp((n)*ln(per))
if x > 0 then pow:=exp((n)*ln(per));
l:=round(n);
if (l mod 2 = 0) then R:=Abs(pow);
if (n = 0) then pow:=1;

End;

begin
clrscr;
write('Vvedite Y:');
readln(y);
write('Vvdeite stepen(N):');
readln(n);
writeln('x=y^n=',mat(x,y,n));
end.

[homa371]

ну и так тоже попробовал...ничего не изменилось((

[RomiKon]

program zadacha2;
uses math, crt;
Procedure mat(var x,y,n:real);
var per:real;
Begin

per:=abs(x);
if x < 0 then pow:=(-1)*exp((n)*ln(per));
if x > 0 then pow:=exp((n)*ln(per));
l:=round(n);
if (l mod 2 = 0) then R:=Abs(pow);
if (n = 0) then pow:=1;

End;

begin
clrscr;
write('Vvedite Y:');
readln(y);
write('Vvdeite stepen(N):');
readln(n);
writeln('x=y^n=',mat(x,y,n));
end.

А вообще я просто исправил синтаксические ошибки а так код не рабочий.
Скажите какой результат вам нужен хотя бы, чтобы было ясно где поправить

[homa371]

А что именно в нем не так?

[homa371]

Сообщение от RomiKon

А вообще я просто исправил синтаксические ошибки а так код не рабочий.
Скажите какой результат вам нужен хотя бы, чтобы было ясно где поправить

Найти ошибку и компиляция без ошибок.

y=x^n;

y=2^0=1

[RomiKon]

В код функции возведения в степень вникать не буду.
Во первых напрягает вот эта строчка

writeln('x=y^n=',mat(x,y,n));

должно быть так

mat(x, y, n);
writeln('x=y^n=', x);

И ещё у вас x y n не объявлены Тогда как же вы собираетесь с ними работать?
После описания процедуры mat добавте

var
  x, y, n: real;

[New man]

program zadacha2;
uses math, crt;
Function mat(y,n:real):real;
var per:real;
Begin
per:=abs(y);
if y < 0 then mat:=(-1)*exp((n)*ln(per)) else
if y > 0 then mat:=exp((n)*ln(per)) else
mat:=1

End;
var y,n:real
begin
clrscr;
write('Vvedite Y:');
readln(y);
write('Vvdeite stepen(N):');
readln(n);
writeln('x=y^n=',mat(y,n));
readln
end.