Площадь кольца, ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d - Pascal

Формулировка задачи:

Помогите пожалуйста с задачей Вычислите площадь кольца, ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d

Решение задачи: «Площадь кольца, ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d»

Листинг программы

uses crt;
var r1,r2,h,d,s:real;
begin
clrscr;
repeat
write('Введите ширину кольца h>0  h=');
readln(h);
until h>0;
repeat
write('Введите отношение большего радиуса к меньшему d>1  d=');
readln(d);
until d>1;
{из соотношения (r1+h)/r1=d вычисляем}
r1:=h/(d-1);
r2:=r1+h;
s:=pi*(r2*r2-r1*r1);
write('Площадь кольца=',s:0:2);
readln
end.

Объяснение кода листинга программы

В первой строке используется библиотека crt, которая необходима для работы с числовыми значениями с плавающей точкой в языке Pascal.
Переменные r1, r2, h и d объявлены как real, что позволяет работать с числами с плавающей точкой.
Строка clrscr очищает экран перед началом ввода данных.
В цикле repeat...until пользователь должен ввести значение ширины кольца h. Это проверяется с помощью условия h>0. Если введенное значение не превышает 0, цикл прерывается.
Затем пользователь должен ввести значение отношения большего радиуса к меньшему d. Это проверяется с помощью условия d>1. Если введенное значение не превышает 1, цикл прерывается.
После этого выполняется расчет значения переменной r1, которая представляет собой ширину кольца, деленную на (d-1). Значение r2 получается путем добавления ширины кольца к значению r1.
Затем вычисляется площадь кольца по формуле s = π (r2 r2 - r1 * r1), где π - это константа, приближенное значение которой равно 3.14159.
Наконец, выводится значение площади кольца с точностью до двух знаков после запятой.
Цикл readln используется для чтения введенных пользователем значений и прерывается, когда введенное значение не соответствует условиям (h>0) и (d>1).