Найти суммарную площадь N колец

{Найти суммарную площадь N колец, внутренние радиусы которых одинаковы,
а значение внешних радиусов образуют последовательность: 5, 10, 15,...,(5N).}
var
  s,p,r1:real;
  i,n:integer;
begin
  writeln('Введите внутренний радиус (<5): '); readln(r1);
  writeln('Введите количество колец: '); readln(n);
  s:=0;
  p:=pi*sqr(r1);
  for i:=1 to n do
    s:=s+pi*sqr((i*5))-p;
  writeln('Площадь колец: ',s:8:3);
  readln;
end.

var n,r,pi,i,s1,s:real;
begin
writeln('введите кол-во колец');
readln(n);
writeln('введите внутренний радиус кольца(должен быть меньше 5)');
readln(r);
pi:=3.14;
if (r<5) then begin
i:=5;
 
while i<=5*n do begin   {это первый внешний радиус кольца, затем он увеличивается с шагом 5 до 5N}
s1:=pi*(i*i-r*r);        {Площадь кольца, i-радиус внешний, r-радиус внетреннего}
s:=s1+s; {Площадь кольца, с каждым шагом суммируется и учитывает площадь прошлого круга}
i:=i+5;
end;
 
writeln('площадь колец=',s);
end;
else writeln('внут радиус долж быть меньш внешнег');
readln;
end.