program Площадь кольца;
var A, B, C, S: real;
begin
writeln ('Радиус большего круга = ',A,' ');
readln (A);
writeln ('Радиус меньшего круга = ',B,' ');
readln (B);
C:=3,14 ;
writeln (' = ',C,' ');
S:=C*SQR(A)-C*SQR(B);
writeln ('S кольца = ',S,' ')
end.
program Площадь кольца;
var A, B, C, S: real;
begin
writeln ('Радиус большего круга = ',A,' ');
readln (A);
writeln ('Радиус меньшего круга = ',B,' ');
readln (B);
C:=3,14 ;
writeln (' = ',C,' ');
S:=C*SQR(A)-C*SQR(B);
writeln ('S кольца = ',S,' ')
end.