Вычисление площади кольца — Pascal(Паскаль)

uses crt;
const pi=3.14;
var
r1,r2,Plowady:real;
function Rings(m1:real;m2:real):real;
var
s1,s2:real;
begin
  s1:=pi*m1*m1;
  s2:=pi*m2*m2;
  Rings:=s1-s2;
  writeln('Площадь кольца равна ',Rings:3:3);
end;
 
begin
  clrscr;
  write('введите r1 ');readln(r1);
  write('введите r2 ');readln(r2);
  Plowady:=Rings(r1,r2);
  textcolor(10);
  write('Программа работу закончила,нажмите Enter');
  readln;
end.