[Pascal]: Найти площадь кольца, если даны его внутренний и внешний радиус.

[Кристина96]

Найти площадь кольца,внутренний радиус которого R1, а внешний R2(R2>R1). Значения радиусом ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение кольца и результат вычислений.

[Вадим Мошев]

Прощать кольца равна: R2 - R1. Как находить площадь круга знаете?

[Кристина96]

Как найти площадь круга я знаю. Я составила две отдельные программы для нахождения площадь и вывода на экран,не знаю как совместить в одну

[newerow1989]

var r1,r2,s1,s2,s:real;
begin
   Write('R1 = ');Readln(r1);
   Write('R2 = ');Readln(r2);
   s1:=pi*r1*r1;
   s2:=pi*r2*r2;
   s:=s2-s1;
   Writeln(s:5:5);
   Readln;
end.

[Кристина96]

Еще бы знаеь,что им понравится,а что нет)