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