очень желательно подробно расписать почему так

Var r,i:integer;
begin
r:=59;
s:=1;
for i:=1 to 30 do begin
s:=pi*sqr(r)*4;
writeln(s);
r:=r-1;
s:=1;
end;
end.

Решение на фотографии, которую прикрепила к ответу. Удачи.

Компьютерный вирус — это компьютерная программа, вызывающая нарушение работы других программ.
Защитить компьютер можно только антивирусами.Но антивирусы не всегда могут заметить вирус,ведь с каждым днем появляются новые вирусы.Так же защитой может быть наблюдательность,то есть не заходит на не знакомые сайты.Антивирус также позволяет запретить вирусам, червям и хакерам загружать потенциально опасные программы на компьютер.