Программка на Паскале не получается.

[StudUL]

Если точка с координатами (x,y,z) принадлежит внутренности одного из щаров с радиусом (2) и с центром в точке (7, 5 ,3) и точке (5,4,2), но не принадлежит внутренности другого, ответить "да" , иначе - "нет"/

Program pr4;
uses crt;
var r,x,y,z,cx,cy,cz,cxl,cyl,czl:real;
begin
clrscr;
writeln('wwedite koordinaru tochek');
read(x);
read(y);
read(z);
r:=2;
cx:=7;
cy:=5;
cz:=3;
cxl:=5;
cyl:=4;
czl:=2;
if sqr(x-cx)+sqr(y-cy)+sqr(z-cz) <sqr(r)
if (x-cxl)+sqr(y-cyl)+sqr(z-czl)<sqr(r)
then
writeln('da')
else
writeln ('net');
end.

[Sazary]

Вот это, вроде, работает:

program pr4;
uses crt;

var
r,x,y,z,cx,cy,cz,cxl,cyl,czl : real;

begin
clrscr;
r := 2;
writeln('wwedite koordinaty tochek:');
read(x);
read(y);
read(z);
cx := 7;
cy := 5;
cz := 3;
cxl := 5;
cyl := 4;
czl := 2;
if (sqr(x-cx)+sqr(y-cy)+sqr(z-cz)<sqr(r)) and (sqr(x-cxl)+sqr(y-cyl)+sqr(z-czl)<sqr(r)) then
writeln('DA')
else
writeln('NET');

readln;
end.

У вас ошибка во втором if'е:

if sqr(x-cxl)+sqr(y-cyl)+sqr(z-czl)<sqr(r)

[StudUL]

Спасибо, работает всеь замечательно!!!