Введите с клавиатуры значение параметров A,B и переменных W,k. Вычислить X

var
  k : Byte := 0;
  a, b, w : Single;
 
begin
  while (k < 1) do
  begin
    Write('Input k=');
    ReadLn(k);
  end;
  Write('Input W, A, B: '); ReadLn(w, a, b);
  case k of
    1 :
      if (w < a) then
        WriteLn('X=', (ln(w - a) / ln(2)):0:3)
      else
        WriteLn('Ошибка вводных данных!');
    2 :
      if (sqr(w) + b * w + a >= 0) then
        WriteLn('X=', (sqrt(sqr(w) + b * w + a)):0:3)
      else
        WriteLn('Ошибка вводных данных!');
    3 :
      if ((w + a >= 0) And (w + b >= 0)) then
        WriteLn('X=', (sqrt(w + a) + sqrt(w + b)):0:3)
      else
        WriteLn('Ошибка вводных данных!');
    else
      if (b <> 0) then
        WriteLn('X=', (exp(-a * w / b)):0:3)
      else
        WriteLn('Ошибка вводных данных!');
  end;
end.