Помогите! Задачка на рисунке

var

 r, L, S, V: Real;

begin

   Write ('Введите радиус: ');

   ReadLn (r);

   L := 2 * Pi * r;

   S := Pi * r * r;

   V := 4 / 3 * Pi * Power (r, 3);

   Writeln ('Длина окружности = ', L);

   Writeln ('Площадь круга = ', S);

   Writeln ('Объем шара = ', V);

end;