Табулирование функции Опции

[Василяй]

Помогите разобраться в задаче!
Задание такое: Затабулировать функцию двух переменных z(x,y)=sqrt(1-sqr(x)-sqr(y)) внутри квадрата 0<=x, y<=1 (<= - меньше или равно) и области существования функции z. Шаги табуляции х=у=0.1

Я задачю решил (вроде бы ). Мне не понятно как затабулировать функцию в области существования функции z. Помогите с этим пожайлуста! Вот моя программа:

uses crt;
const shag = 0.1;
var
   x,y,z: real ;
   count : integer ;

function func(x,y:real ):real;
var
 z: real;
  begin
   z:=0;
    begin
     z:=sqrt(1-sqr(x)-sqr(y));
     end;
    func:=z;
end;

begin
 clrscr;
 count := 1;
 x := 0;
 y := 1;
  While x <= y do
   begin
    writeln(count,')','x=',x,' y=',y,' z(x,y)=',func(x,y));
    x:= x+shag;
    y:= y-shag;
    inc(count);
   end;
end.

[мисс_граффити]

почему??? 0.1, как положено....
просто выводится в 2 столбика, посмотри внимательнее

[Василяй]

...
if odd(count) then   
    writeln; 
end;
...

вроде этот цикл создаёт этот глюк?