fpc
Объяснение:
program prog;
var r1,r2:integer;
pi:real;
begin
pi:=3.14;
writeln('enter r1,r2:');
readln(r1,r2);
writeln(abs(pi*(r1*r1-r2*r2)));
end.
