Кому нетрудно помогите пожалуйста сделать задачи по процедурам и функциям

[student2008]

1)Имеется сферическая капля жидкости радиуса R3, внутри которой находятся два пу-зырька воздуха с радиусами R2, R1 (R1+R2<R3). Описать процедуру нахождения объема жидкости.

2)Описать функцию DegToRad(D) вещественного типа, находящую величину угла в радиа-нах, если дана его величина D в градусах (D — вещественноечис-ло,0<D<360).Воспользоватьсяследующи мсоотношением: 180 = π радианов. В качестве зна-чения π использовать 3.14. С помощью функции DegToRad перевести из градусов в ра-дианы пять данных углов.

3)Описать процедуру построения фигуры – правильного пятиугольника, для которого задан радиус вписанной окружности, а так же заданы координаты вершины фигуры.

[__STDC__]

а в чем собственно проблема?? все программы в две строки

[Gongled]

1.

procedure volume_f(r1, r2, r3 : real; var v : real);
var
v1, v2, v3 : real;
begin
     v1 := 4/3*pi*exp(r1*ln(3));
     v2 := 4/3*pi*exp(r2*ln(3));
     v3 := 4/3*pi*exp(r3*ln(3));
     v := v3 - v2 - v1;
end;

2.

program pr;
uses CRT;
var
a,b,c,d,e : real;

function DegToRad(d : real) : real;
begin
     DegToRad := d * 3.14/180
end;

begin
clrscr;

read(a,b,c,d,e);
write('Результат: ', DegToRad(a),' ',DegToRad(b),' ',DegToRad(c),' ',DegToRad(d),' ',DegToRad(e));

end.

http://programmersforum.ru/showpost....20&postcount=3
Это вообще найти можно было. Думай, честно говоря, больше не хочется решать.