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