Найти площадь кольца - Pascal

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

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

program proc19;
var g,R1,R2,S:integer;
const p=3.14;
procedure RingS(R1,R2,S:integer);
begin
if R1>R2 then g:=R1-R2
else if R1<R2 then write('Radiusu zadanu nepravilno!');
S:=p*(sqr(g));
end;
begin
procedure RingS(R1,R2,S);
writeln('Ploshad kolca->');
readln(S);

Решение задачи: «Найти площадь кольца»

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

function RingS( var R1,R2:real):real;
begin
ringS:=abs(pi*(sqr(r1)-sqr(r2)));
end;
var
rvnesh,rvnut:real;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('vvedite radiusy ',i,' kolca');
readln(rvnesh,rvnut);
writeln('ploshad ',i,' kolca=',ringS(rvnesh,rvnut):5:3);
end;
readln;
end.

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

Создаётся функция RingS, которая принимает два аргумента типа real и возвращает значение типа real.
В функции объявляются две переменные типа real - R1 и R2.
В теле функции вычисляется площадь кольца по формуле abs(π*(sqr(R1)-sqr(R2))), где sqr - это функция возведения в квадрат.
Создаётся переменная типа integer - i.
В цикле for i от 1 до 3 выполняется следующая последовательность действий:
- Выводится сообщение введите радиусы колец, где i - номер введенного кольца.
- Считываются значения переменных rvnesh и rvnut с помощью функции readln.
- Выводится сообщение площадь, i -го кольца =, где i - номер введенного кольца.
- Выводится значение функции ringS, которая принимает значения rvnesh и rvnut в качестве аргументов.
Выполняется считывание значения с помощью функции readln.
Выводится символ новой строки с помощью функции readln.