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

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

program cmisfnjs; uses crt; var a,b,c,d,e,f,p:integer; begin readln(a,b,c,d,e,f); p:=a+b+c+d+e+f; writeln(p); readln; end.  Если стороны разные,