Найти площадь кольца, внутренний радиус которого равен 20, а внешний – заданному числу R(R>20) — Pascal(Паскаль)

var s,r1,r2:real;
begin
r1:=20;
repeat
write('Введите внешний радиус ');
readln(r2);
until r2>20;
s:=sqr(r2)*pi-sqr(r1)*pi;
writeln('Площадь:  ',s:4:2);
readln;
end.