в паскале подпрограмма является частью

Ответ от Ѐазгуляева Елена[гуру]
{Вычислить площадь правильного шестиугольника со стороной "a",
используя процедуру вычисления площади треугольника. }
var a : integer;
S : real;
function SquareTr(a : integer) : real;
begin
SquareTr := (sqrt(3)*a)/2
end;
BEGIN
writeln('Введите сторону а шестиугольника: ');
ReadLn(a);
S := 6 * SquareTr(a);
Writeln('Площадь шестиугольника со стороной а, равна ', S:3:3);
END.