Вычислите площадь кольца ширина которого равна 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