Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d. пример program a1; var a, b, c: integer; begin readln (a,b,c); if (a+b> c) and (a+c> b) and (b+c> a) then writeln ( "треугольник построить можно") else writeln ("треугольник построить нельзя"); end.

Var h,D,s: real;
begin
  write('ширина кольца h: '); readln(h);
  write('отношение радиусов D: '); readln(D);
  s:=pi*sqr(h)*(D+1)/(D-1);
  writeln('площадь кольца: ',s:7:3);
end.

// h = R - r     R/r = D
// h = r*(D-1) =>  r = h/(D-1)
// R = (D*h)/(D-1)
// s = pi*(sqr(R) - sqr(r)) = pi*sqr(h)*((sqr(D)-1)/(sqr(D-1))
// s = pi*sqr(h)*(D+1)/(D-1)

ширина кольца h: 2
отношение радиусов D: 1.5
площадь кольца:  62.832