{$R+}
program ideone;
var
  bp: array[0..0]of boolean;
begin
  bp[1] := true;
end.