FRex

program watergold;
uses math;
var
    gold : array [1..500] of Integer;
    chains : array [1..1000] of record
        a, b : Integer;
    end;
    e, v, i, j : Integer;
    best2, best3, best4 : Integer;
    connected : array[1..1000, 1..1000] of boolean;

FRex

unit SFUtils;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type