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

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

program ZADANIE4;

var Z, x, y: real;

N: integer;

D: real;

begin

writeln('NxyZ');

N:=0;

x:=0;

while(xlt;=1.5) do

begin

y:=0;

while(ylt;=1.5) do

begin

N:=N+1;

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

if(D=gt;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.

Жека Прямоносов 2019-09-28 22:50:04

D>= 0 записано не так