Program discriminant;
var a,b,c,d,e,t,f,y:real;
begin
Write('Введите толщину кольца: ');
read(t);
Write('Введите диаметр внутреннего круга: ');
read(d);
Writeln('Напомню что площадь кольца находится по формуле S = π*(R² - r²)');
a:=d/2; // Нахождение внутреннего радиуса кольца.
b:=a+t; // Нахождение внешнего радиуса кольца.
c:=a*a; // Возведение в квадрат
e:=b*b; // Возведение в квадрат
f:=c-b; //
y:=3.14*f;
write('Площадь кольца равна: ', y);
end.