Составить алгоритм вычисления объема 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.