Паскаль кто может помочь?
Program n1; var r: real; begin write('радиус шара (см): '); readln(r); writeln('площадь боковой поверхности: ',4*pi*r*r,' (кв. см)'); writeln('обьем шара: ',1/3*pi*r*r*r,' куб. см)'); end.