В чем проблема???

[SaShoock]

program lab3;
uses crt;
type arg=0..30;
var x:arg; y:real;
begin
clrscr;
for x:=0 to 30 do begin
case x of
10..20:if x mod 2=0 then y:=exp(3)+(2*sqr(x))-2
else y:=exp((2*x)-1)+cos(x);
1..9:y:=ln((x+1)/(2*x-1) else
y:=x/((sin(x)/cos(x))+sin(2*x));
end;
writeln('y=', z:4:2)
end;
readkey;
end.


почему выдает ошибку, что не правильно и чем заменить?

[TwiX]

Может стоило описание ошибки выложить?
ln((x+1)/(2*x-1)
Тут как бэ скобки не хватает. А дальше не смотрел.

[phomm]

1..9:y:=ln((x+1)/(2*x-1) else
y:=x/((sin(x)/cos(x))+sin(2*x));

тут как бэ else не понять откуда и строчка после него будет обругана компилём, может if что-то пропущено ?