вычисление функции по значению аргумента

[specialist]

Помогите пожалуйста! не работает код по вычислению функции.

program zadanie2;
var
  x, y, z: real;
  i: byte;
const x1 = 0.707;
const x2 = 1.5;
const x3 = -3.5;

const b = exp(-sqrt(3));
const c = cos(2 * pi / 4);
const d = ln(2);
begin
  x := x1;

  i := 1;
  while i <= 3 do
  begin
    if x > c then y := 4.7 * b + ln(abs(x + 0.7 * d)) / 2.5 * c * d
    else
      if x = c then y := ln(abs(x + 0.7 * b)) + arctan(sqr(c) * d)
      else
        z := (sqr(c) + sqr(d)) / b + sqrt(abs(x));
    y := arctan(z / sqrt(1 - sqr(z)));
    writeln('x:= ', x: 10: 5, '; y:= ', y: 10: 5);

    i := i + 1;
    if i = 2 then
      x := x2
    else
      x := x3
  end;

  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.