---

Jei dar kam reikia.

program apskritimai;
Var r1, r2, xc1, yc1, xc2, yc2, ats : real;
begin
Write ('Įveskite pirmo apskritimo centro koordinates (xc1 ir yc1) '); ReadLn (xc1, yc1);
Write ('Įveskite pirmo apskritimo spindulį: '); ReadLn(r1);
Write ('Įveskite antro apskritimo centro koordinates (xc2 ir yc2) '); ReadLn (xc2, yc2);
Write ('Įveskite antro apskritimo spindulį: '); ReadLn(r2);
ats := sqrt (Sqr (xc1 - xc2) + Sqr (yc1 - yc2)); {apskaičiuojamas nuo vieno apskritimo centro iki antro apskritimo centro atstumas}
if ats - r1 <= 0
then WriteLn ('kertasi')
else if ats - r2 <= 0
then WriteLn ('kertasi')
else WriteLn ('Nesikerta');
Readln;
end.