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

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