Найти площади кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2: S1 = pi*Sqr(R1), S2 = pi*Sqr(R2), S3 = S1 - S2

Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2).

Program Begin13;
Var
R1,R2,S1,S2,S3:Real;
Begin
ReadLn(R1,R2);
S1 := pi*Sqr(R1);
S2 := pi*Sqr(R2);
S3:=S1 - S2;
WriteLn('S1 = ',S1,' S2 = ',S2,' S3 = ',S3); 
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9