Program natur;
uses crt;
var r1, r2, l:Integer;
begin
Writeln('Введите R1, R2, L');
Readln(r1, r2, l);
if (r1+r2) > l then Write('Окружности имеют 2 общие точки');
if (r1+r2) = l then Write('Окружности имеют 1 общую точку');
if (r1+r2) < l then Write('Окружности не имеют общих точек');
if (r1=r2) and (r1=l) then Write('Окружности совпадают, все их точки - общие);
readln;
end.
На турбопаскале. В принципе и на АВС должно работать