Написать программу периметра шестиугольника спс

Если у шестиугольника все стороны одинаковой длины, то можно так: Program Zadacha; Var n, p: Integer; Begin Write ('длина стороны шестиугольника='); ReadLn (n); p: =6*n; WriteLn ('периметр=', p); ReadLn; End.