var S,R1,R2: real;
begin
writeln('Введите радиус внешней окружности: ');
readln(R1);
writeln('Введите радиус внутренней окружности: ');
readln(R2);
S:=Pi*(sqr(R1)-sqr(R2));
writeln('S = ',S);
end.
var S,R1,R2: real;
begin
writeln('Введите радиус внешней окружности: ');
readln(R1);
writeln('Введите радиус внутренней окружности: ');
readln(R2);
S:=Pi*(sqr(R1)-sqr(R2));
writeln('S = ',S);
end.