Помогите пожалуйста с лабораторной, выдаёт ошибку(на скрине показано), не понимаю в чём проблема:((((

program ZADANIE4;

var Z, x, y: real;

N: integer;

D: real;

begin

writeln('|N|x|y|Z|');

N:=0;

x:=0;

while(x<=1.5) do

begin

y:=0;

while(y<=1.5) do

begin

N:=N+1;

D:=1-(exp(2*ln(x))/8)-(exp(2*ln(y))/12);

if(D=>0) then

begin

Z:=sqrt(D);

writeln(N,x,y,Z);

writeln('__');

end

else

begin

writeln('*****');

writeln('__');

end;

y:=y+0.15;

end;

x:=x+0.15;

end;

end.

Знак "больше или равно" пишется в том же порядке, что и читается

Сначала знак больше потом равно

" >= "

Заменить 16 строку " if(D=>0) then "

На " if(D>=0) then "