Нужно проверить пересекаются ли две окружности, через входной и выходной файлы в Паскале. Координаты их центров х и у целые числа не превосходящие по модулю 5000 и радиус целое число от 1 до 1000 включительно.

А координаты точек пересечения Вам в выходной файл выводить не надо ?

{ пересечение окружностей }var xa,ya,xb,yb,ra,rb: integer;    d: real;    st: string;    f: text;begin  assign (f,'C:\In.txt');  reset (f);  read (f,xa,ya,ra);  read (f,xb,yb,rb);  close (f);  d:=Sqrt(sqr(xb-xa)+sqr(yb-ya));  if (d>rb+ra) or (d<abs(rb-ra)) then st:='NO'   else st:='YES';{ запись в выходной файл }  assign (f,'C:\Out.txt');  rewrite (f);  writeln (f,st);  close (f);end.