function, procedure (выручите)

[Woxx]

Здравствуйте Уважаемыые форумчане, хочу заранее сказать спасибо за то, что Вы довольно доходчиво объясняете коды программ.
На этот раз у меня появилась задача на тематику процедур и функций совершенно не представляю как с этим работать. ПРОШУУУУ

ЗАДАЧА
Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора оформите отдельными функциями.

[Stilet]

Ну а формула длины экватора какая? Длина окружности?
покажи формулу

[Woxx]

2*пи*r, это формула длины экватора

[ROMA2PVT]

S:=4*Pi*sqr(r)

[Woxx]

Спасибо за участие допедрил в моей задачи, допедрил оказалось просто:
Если кому то надо?!

Uses crt;
Var
r: integer;
Procedure radius(a: integer);
begin
Writeln('Длина экватора: ',2*pi*a:6:2,' тыс км');
end;
Procedure ploshad (b: integer);
begin
Writeln('Площадь поверхности планеты: ',4*pi*sqr(b),' кв. тыс км');
end;
Begin
ClrScr;
Write('Введите радиус планеты в тыс. км: '); Readln(r);
radius(r);
ploshad(r);
readln;
end.

[Stilet]

Ну вот видишь как все просто )