Определить полную поверхность 30 шаров - Turbo Pascal

определить полную поверхность 30 шаров. Радиус R- первой равен 59 м, а каждой последующей уменьшается на 1 м.

Листинг программы

var r: Integer; s: Real;
begin
  for r:=59 downto 30 do s:=s+4*Pi*Sqr(r);
  WriteLn(s);
end.

Объяснение кода листинга программы

В этом коде происходит следующее:

Объявляются две переменные: r (целое число) и s (реальная числовая величина).
Задаётся цикл, который начинается с r=59 и продолжается до r=30 (то есть выполняется 29 итераций).
На каждой итерации значение переменной s увеличивается на 4Пиквадрат значения переменной r.
После завершения цикла выводится значение переменной s. Список:
Объявляются переменные r и s.
Задаётся цикл от r=59 до r=30.
На каждой итерации значение s увеличивается на 4Пиквадрат значения r.
После завершения цикла выводится значение s.