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

Если у шестиугольника все стороны одинаковой длины, то можно так:

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.

 Если стороны разные,