Программа вычисления площади кольца, используя подпрограмму вычисления площади круга

Код Pascal

1 const pi=3.14;
2 var n,m: real;
3 function S(r: real): real;
4begin
  5 S:=pi*r*r;
6 end;
7begin
  8write('R1='); readln(n); n:=S(n);
  9write('R2='); readln(m); m:=S(m);
  10writeln('S=',abs(n-m));
11end.