// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var d:=ReadReal('Внутренний диаметр кольца d=');
var t:=ReadReal('Толщина кольца t=');
Writeln('Площадь кольца: ',pi*t*(d+t))
end.
Тестовое решение
Внутренний диаметр кольца d= 15.6
Толщина кольца t= 4
Площадь кольца: 246.30086404144