Question

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