Вычислить длины двух окружностей и площадь кольца, образованного из этих окружностей - Pascal

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

Очень нужна ваша помощь. Вычислите длины двух окружностей с радиусами

а также площадь кольца, образованного из этих окружностей с общим центром O Было бы неплохо, если бы в дополнение к нему отправили блок-схему Заранее спасибо!

Решение задачи: «Вычислить длины двух окружностей и площадь кольца, образованного из этих окружностей»

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

var
   r1,r2: real;
begin
   write ('Радиус I окружности R = ');
   readln(r1);
   write ('Радиус II окружности r = ');
   readln(r2);
   writeln ('Длина I окружности L = ', 2*pi*r1:6:4);
   writeln ('Длина II окружности l = ', 2*pi*r2:6:4);
   writeln ('Площадь кольца: ', pi*(sqr(r1)-sqr(r2)):6:4);
end.

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

Создаются переменные для хранения радиусов окружностей:
- r1 для радиуса I окружности
- r2 для радиуса II окружности
Пользователю выводится запрос ввода радиуса для первой окружности:
- write ('Радиус I окружности R = ');
Пользователь вводит значение радиуса для первой окружности, которое сохраняется в переменной r1:
- readln(r1);
Пользователю выводится запрос ввода радиуса для второй окружности:
- write ('Радиус II окружности r = ');
Пользователь вводит значение радиуса для второй окружности, которое сохраняется в переменной r2:
- readln(r2);
Вычисляются длины окружностей по формуле 2 π радиус:
- writeln ('Длина I окружности L = ', 2 * pi * r1:6:4);
- writeln ('Длина II окружности l = ', 2 * pi * r2:6:4);
Вычисляется площадь кольца, образованного двумя окружностями по формуле π * (r1^2 - r2^2):
- writeln ('Площадь кольца: ', pi * (sqr(r1) - sqr(r2)):6:4);