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

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