Написать программу( в pascal), которая определяет полную поверхность 30-ти шаров. радиус первого составляет 59 м, а каждого последующего уменьшается на 1 м.

Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
 s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.

Результат:
s = 774779.580