Окружности.

var 
 R , X1, Y1, X2, Y2, H, D, S:Real;
 
Begin
  Write ('R= ');
  ReadLn (R);
   WriteLn ('First circle center:');
  Write ('X1= ');
  ReadLn (X1);
  Write ('Y1= ');
  ReadLn (Y1);
  WriteLn ('Second circle center:');
  Write ('X2= ');
  ReadLn (X2);
  Write ('Y2= ');
  ReadLn (Y2);

uses crt;
var r,x1,y1,x2,y2,d,p,s:real;
begin
write('Радиус окружностей R=');
read(r);
writeln('Введите координаты центра первой окружности:');
read(x1,y1);
writeln('Введите координаты центра второй окружности:');
read(x2,y2);
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));{расстояние между центрами}
if d>2*r then write('Окружности не пересекаются')
else if d=2*r then write('Окружности касаются')
else if(x1=x2)and(y1=y2) then write('Окружности совпадают')
else
 begin
  writeln('Окружности пересекаются');
  {получается ромб=2 треугольника} 
  p:=(2*r+d)/2;{полупериметр}
  s:=2*sqrt(p*(p-r)*(p-r)*(p-d));{площадь по Герону}
  write('Площадь четырехугольника=',s:0:2);
 end;
end.