Периметр четырёхугольника равен 118. Одна из его диагоналей делит четырёхугольник на два треугольника с периметрами 77 и 83. Чему равна эта диагональ?

var
  a, b, i: integer;
  d: string;
  
begin
  readln(a);
  d := a.ToString();
  for i := length(d) downto 1 do
    b += byte.Parse(d[i]) * round(power(2, length(d) - i));
  writeln(b);
end.

Незя без length, нерационально