Даны два круга с общим центром и радиусами 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.