процедуры, площадь шестиугольника Опции

[СТАНИСЛАВ]

приве это сново я наверное изрядно вам уже поднадоевший. У меня вновь задача по которой есть некоторые вопросы.
Суть задачи состоит в следующем:
Вычислить площадь правильного шестиугольника со стороной А, используя подпрограмму вычисления площади треугольника.

program zubi_nado_lechit;
Var a: integer; s:real;
procedure ploshad_treugolnika(var s:real;var a:integer);
begin
s:=a*a/2;
end;
begin
write('ввести строку щестиугольника А=',A);
readln (a);
ploshad_treugolnika (s,a);
s:=6*s;
writeln ('площадь правильного шестиугольника s=',s:6:3);
end.

Уменя вопрос, возможно ли испольовать в этой программе функцию и если можно то как. Да к стати не совсем уверен что программа будет выполняться правильно. помогите кто может. Заранее спасибо.