Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга(два варианта:с процедурой и с функцией)

Var
    r1, r2: real;

procedure pCircleSquare(r: real; var S: real);
begin
    s := Pi * sqr(r);
end;

function fCircleSquare(r: real): Real;
begin
    fCircleSquare := Pi * sqr(r);
end;

begin
    Write(r1, r2 = );
    ReadLn(r1, r2);
    writeln(Функция S = , abs(fCircleSquare(r1) - fCircleSquare(r2)):5:2);
    
    pCircleSquare(r1, r1);
    pCircleSquare(r2, r2);
    writeln(Процедура S = , abs(r1 - r2):5:2);
end.