Напишите программу в паскаль, которая вычисляет площадь кольца если его толщина t см а диаметр внутреннего круга - d см

Площадь кольца равна разности площадей внешнего и внутреннего круга с диаметрами D и d.

В нашем случае D = d + 2 * t.

Площадь круга с диаметром кольца d + 2*t равна:

S = (pi * (d + 2 * t) ^2) / 4.

Площадь внутреннего круга:

s = (pi * d^2) / 4.

Формула для использования в программе:

pi * (d + 2*t) ^2) / 4 - (pi * d^2) / 4 = pi * ((d + 2 * t) ^2 - d^2) / 4.

program ring;

const pi = 3.1416;

var d, t: real;

begin

writeln ('Введите диаметр внутреннего круга кольца в сантиметрах');

readln (d);

writeln ('Введите толщину кольца в сантиметрах');

readln (t);

writeln ('Площадь кольца = ', pi * (power (d + 2 * t, 2) - power (d, 2)) / 4, ' см');

end.