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

[Василяй]

Помогите разобраться в задаче!
Задание такое: Затабулировать функцию двух переменных 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.

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

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

а нельзя так:

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

?

While x <= y do

вот это условие откуда берется?
по заданию оно должно быть таким:
0<=x<=1
0<=y<=1
но дело в том, что не на всем квадрате функция sqrt(1-sqr(x)-sqr(y)) определена (корень из отрицательного числа в области действительных чисел извлечь невозможно).