Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца - PascalABC.NET

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

Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 — вещественные, R1 > R2). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S = pi·R². В качестве значения pi использовать 3,14.

Решение задачи: «Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца»

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

                            const pi = 3.14;
 
function RingS(R1, R2 : Real) : Real := pi * (R1*R1 - R2*R2);
 
begin
  for var i := 1 to 3 do
    WriteLn('Площадь ' + i + ' кольца = ', RingS(ReadLnReal('Кольцо ' + i + ': R1 ='), ReadLnReal('Кольцо ' + i + ': R2 =')));
end.
                        