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

program Ls112kfdkfjfj;const pi=3.14;var n,m: real;function S(r: real): real;begin     S:=pi*r*r;end;begin     write('R1='); readln(n); n:=S(n);     write('R2='); readln(m); m:=S(m);     writeln('S=',abs(n-m));end.