Разветвляющийся вычислительный процесс.

[Diego90]

Нужна помощь
На переменную W^k в первой строчке(Картинка снизу 15-е задание) нужно взять условие на четность и не четность.
Как это записать , подскажите пожалуйста.

Program Z2_3;
Var A,B,W,x:Real;
       k:integer;
       mist:=Boolean;
Begin
   Writeln('Введите A,B,W,k'); 
   Readln(A,B,W,k);
   mist:=False;
   Case k of
   1..6:    If (exp(k*ln(w))-a*w+b)>=0
             Then x:=sqrt(exp(k*ln(w))-A*W+B)
             Else mist:=True;
   7..20:  If B*abs(W-A)>0
             Then x:=exp(ln(B*W)*ln(k))/B*Abs(W-A)
             Else mist:=True;
    Else    If sin(W+k*B)>=0
             Then x:=sqrt(ln(W+k*A))+sqrt(sin(W+k*B))
             Else mist:=True
    End;
    If mist
    Then Writeln('Решений нет')
    Else Writeln('x=',x:8:2)
End.

[rubius2008]

четность или нечетность можно для переменных целого:
1. с помощью mod

if x mod 2=0  then writeln('Четное') else writeln('Нечет')

2. с помощью odd

if odd(x)  then writeln('Не Четное') else writeln('четное')

поэтому вещественный результат, если он целое число нужно привести к целому типу, например округлив