Процедура с параметрами

[admin22]

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

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.

Заранее спс за помощь

[fbus]

program a1;

var pi,r,s,h:real;

procedure my(h:real);
begin
r:=h/(2*pi);
s:=pi*r*r;
end;

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

не забывай плюсы ставить а то я тебе в одной теме по аналогичному заданию помог а плюса не увидел. таким макаром никто помогать тебе не будет

[admin22]

Сообщение от fbus

program a1;

var pi,r,s,h:real;

procedure my(h:real);
begin
r:=h/(2*pi);
s:=pi*r*r;
end;

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

не забывай плюсы ставить а то я тебе в одной теме по аналогичному заданию помог а плюса не увидел. таким макаром никто помогать тебе не будет

+ поставил спс за помощь еще раз. Скайп твой можешь дать?