# Write a program that calculates the area of a ring if its thickness is t cm, and the diameter of the inner circle is d cm (in pascal).

March 26, 2021 | education

| Program kolco;

var

t, d, r, S: real;

begin

write (‘Enter the thickness of the ring in cm:’);

readln (t);

write (‘Enter the diameter of the inner circle in cm:’);

readln (d);

r: = t + d; {Calculate the radius of the great circle}

S = pi * r * r-pi * d * d; {Find the area of the ring by subtracting from the area of the great circle of radius r the area of the small circle of radius d}

writeln (‘The area of the ring is equal to’, S); {}

rteadln

end.

When squaring, you can use the built-in Pascal function: sqr (x).

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.