Question

1. Заданы два числа - внешний R и внутренний r радиусы кольца. Найти площадь кольца

Answer 1

Var R,R1:integer;
s:real;
begin
read(R,R1); // где R - внешний, а R1 - внутренний радиусы 
s:=pi*(sqr(R)-sqr(R1));
write('Площадь кольца=', s);
end.