Составить программу, вычерчивающую две окружности касающиеся друг друга в одной точке. Радиусы окружностей задаются пользователем — Pascal(Паскаль)

var
  x1, x2, y1, y2, r1, r2, d: real;

begin
  read(x1, y1, r1, x2, y2, r2);
  d := sqrt(abs(sqr(x1 - x2) + sqr(y1 - y2)));
  if dr1 + r2 then
    write('net')
  else
    write('da');
  read

end.