Сделать как линейный алгоритм.14. Составите программу для вычисления площадь поверхности шара (S = π D2).

скорее всего так

program z1;

       var r,v,s,pi:double;

begin

       pi:=3.14;

       readln(r);

       v:=(4/3)*pi*r*r*r;

       s:=4*pi*r*r;

       writeln('v=',v:10:5,' ','s=',s:10:5);

       readln

end.

Объяснение: