Работа с циклами

[Kazik]

Есть код...

program l8z6;

uses crt;

var
   x,hx,xn,y,hy,yn,z:real;

begin
     clrscr;
     writeln('vvedite x0,hx,xn');
     readln(x,hx,xn);
     writeln('vvedite y0,hy,yn');
     readln(y,hy,yn);
     repeat
           if (x*y<0) and (pi-x>=0) then
              begin
                   z:=sqr(y)*y-(sqrt(pi-x));
                   writeln('z=',z:5:2);
              end
           else
           if (y*x>=0) and (y*x<=2) and (2*pi+3*y>=0) then
              begin
                   z:=sqr(sin(sqr(x-1)*(x-1)))-(sqrt(2*pi+3*y));
                   writeln('z=',z:5:2);
              end
           else
           if (y*x>2) and  (ln(pi-x)/ln(10)>0) then
              begin
                   z:=x*(sqr(x)+3)+(ln(pi-x)/ln(10));
                   writeln('z=',z:5:2);
              end
           else writeln('Net Resheniya');
     x:=x+hx;
     y:=y+hy;
     until (x<=xn) and (y<=yn);
     READLN;
end.

Такой вопрос...почему программа заходит в цикл ТОЛЬКО 1 раз???

[Stilet]

Думаю потому что писать нужно так:

until (x>xn) or (y>yn);

Ибо этот вид цикла действует чуть по другому чем While

[Kazik]

я в курсе как он работает...но дело в том что при использовании такого выхода из цикла программа выдает ошибку "Error floating operation"
хотя проверками я это исключаю((

[Stilet]

Значит сам алгоритм построен не верно. Задача какова?