Код 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.
