Тема: Поясніть помилку!
Визначити в скількох точках перетинаються два кола.
Вхідні дані
6 чисел x1, y1, r1, x2, y2, r2, де x1, y1, x2, y2, - координати центрів кіл, r1, r2 – їх радіуси. Всі числа - дійсні, не перевищують 1000000000 за модулем, та задані не більш ніж з 3 знаками після коми.
Вихідні дані
Кількість точок перетину. Якщо точок перетину нескінченно багато, то вивести -1.
var x1,y1,r1,x2,y2,r2: longint;
begin
readln(x1,y1,r1,x2,y2,r2);
if x1=x2 and y1=y2 and r1=r2 then writeln(-1);
else begin
l:=sqrt(sqr(x2-x1)+sqr(y2-y1));
p:=r1+r2;
o:=x1+r1;
i:=y1+r1;
g:=x2+r2;
c:=y2+r2;
if p=l then writeln(1);
else begin
if p>l then writeln(0);
else begin
if (o>g and i>c) or (o<g and i<c) then writeln(0)
else writeln(2);
end;
end;
end;
end.
