Изменение программы в процедуру с параметрами.

[Влад.]

Мне в понедельник уже сдавать нужно помогите мне переделать в процедуру с параметрами вот эту задачу

program a1;

var pi,r,s,h:real;

                                    BEGIN
writeln ('нахождение площади круга, если известна длина окружности');
pi:=3.14;
readln ((h));
r:=h/(2*pi);
s:=pi*r*r;
writeln (s:6:2);
END.