Составить алгоритм вычисления объема v и площади поверхности s сферы по введенному значению радиуса r

Блок-схема во вложении.

PascalABC.NET 3.2:
begin
   var r := ReadReal();
   var S := 4 * pi * r * r;
   var V := 4 * pi * r * r * r / 3;
   print(S, V)
end.

1)
#include <iostream>
#include <conio.h>
#include <string>
using namespace std;
int main()
{
string str;
getline(cin, str);
for (int i = 1; i < str.length(); i++)
{
if (i % 3 == 0)
{cout << str[i] << endl;}
}
_getch();
return 0;
}
2)
#include <iostream>
#include <conio.h>
#include <string>
using namespace std;
int main()
{ string str;
getline(cin, str);
for (int i = 1; i < str.length(); i++)
{
 if (i % 2 == 0)
 { if (str[i] != 'a')
  { str[i] = 'a'; }
  if (str[i] != 'b')
  { str[i] = 'b'; }
  if (str[i] != 'c')
  { str[i] = 'c'; }
}
}
cout << str << endl;
_getch();
return 0;}

#include <utility>

#include <vector>

#include <iostream>

#include <algorithm>

int main()

{

   typedef std::pair<std::string, size_t> p_sui;

   size_t N;

   std::cin >> N;

   std::vector<p_sui> vec(N);

   for(size_t i = 0; i < N; i++)

   {

       std::cin >> vec[i].first >> vec[i].second;

   }

   std::cout << "Фамилия: " << std::max_element(vec.begin(), vec.end(), [](p_sui var1, p_sui var2)

   {

       return var1.second < var2.second;

   })->first << std::endl;

}