Подпрограммы и функции!

[Jungler99]

1.Найти площадь кругового кольца с заданным внешним R и внутренним r радиусами, используя поцедуру вычисления площади круга.


Помогите сделать если кто знает на делфи!!

[Alex_FF]

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function CircleArea(R: Double): Double;
begin
  CircleArea := PI * R * R;
end;

var
  RMin, RMax, Area: Double;
begin
  WriteLn('Введите внешний радиус');
  ReadLn(RMax);
  WriteLn('Введите внутенний радиус');
  ReadLn(RMin);
  Area := CircleArea(RMax) - CircleArea(RMin);
  WriteLn('Площадь: ', Area:4:4);
  ReadLn;
  ReadLn;
end.