Составьте программу, определяющую, принадлежит ли точка Z(X,Y)

[qmsk]

На плоскости даны две точки А(Х1,Y2), В(Х2,Y2). Составьте программу, определяющую, принадлежит ли точка Z(X,Y) множеству точек. (разность квадратов расстояний до двух данных точек А и В постоянна и равна D)

[masax]

var
x,y,x1,y1,x2,y2,d:real;
begin
write('x1 = ');
readln(x1);
write('y1 = ');
readln(y1);
write('x2 = ');
readln(x2);
write('y2 = ');
readln(y2);
write('D = ');
readln(d);
writeln;
write('x = ');
readln(x);
write('y = ');
readln(y);
writeln;

if (abs((x1-x)*(x1-x) + (y1-y)*(y1-1) - (x2-x)*(x2-x) - (y2-y)*(y2-y)) = d) then
writeln('Prinadlejit')
else
writeln('Ne prinadlejit');

readln;
end.