Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора оформите отдельными функциями — Pascal(Паскаль)

Program Lab4_3;
Uses Crt;
Var   radiys, S_sfery, Dlina_ekvator : Real;
 
 function  S_poverxnosti_sfery  (radiys : Real):Real;
 Begin
  S_poverxnosti_sfery := 4 * Pi * sqr(radiys);
 end;
 
 function  ekvator  (radiys : Real):Real;
 Begin
  ekvator := 2 * Pi * radiys;
 end;
 
Begin
 write('введите радиус планеты: ');
 readln(radiys);
 writeln('Площадь поверхности планеты = ', S_poverxnosti_sfery(radiys):10:2);
 writeln('Длинна экватора = ', ekvator(radiys):10:2);
End.