建议用TP
大家过年好！
const
  hny:array [1..290] of byte=(
$00, $00, $00, $00, $02, $00, $00, $00, $00, $00,
$00, $00, $00, $00, $06, $00, $00, $00, $00, $00, 
$00, $03, $00, $00, $0E, $18, $00, $03, $00, $00, 
$00, $01, $C0, $00, $1F, $7C, $00, $00, $83, $80, 
$00, $00, $E0, $00, $1F, $FC, $00, $00, $87, $C0, 
$00, $00, $E0, $00, $1F, $F0, $00, $00, $CF, $60, 
$10, $00, $E0, $00, $1F, $E0, $00, $00, $CE, $60, 
$1C, $00, $F8, $00, $01, $F8, $00, $20, $DC, $E0, 
$0F, $01, $F8, $00, $06, $FC, $00, $61, $C0, $E0, 
$0F, $07, $F0, $00, $07, $E0, $00, $61, $81, $C0, 
$18, $1F, $C0, $00, $3E, $60, $00, $71, $83, $80, 
$00, $FF, $C0, $00, $1E, $60, $00, $71, $87, $80, 
$78, $7C, $C0, $00, $1F, $60, $00, $75, $07, $80, 
$7E, $38, $C0, $00, $1F, $F0, $00, $7F, $07, $F0, 
$7E, $00, $C0, $00, $1F, $68, $00, $7B, $03, $F8, 
$1C, $38, $C0, $00, $0F, $FF, $C0, $7B, $0F, $FC, 
$1C, $7C, $C0, $00, $0F, $FF, $C0, $7B, $1E, $7C, 
$18, $5E, $C0, $00, $3F, $E1, $E0, $FF, $3F, $FC, 
$0C, $40, $C0, $01, $FC, $60, $00, $EF, $70, $78, 
$06, $30, $C0, $0F, $E0, $60, $01, $C7, $C0, $60, 
$03, $1F, $C0, $0F, $80, $60, $01, $C7, $80, $60, 
$07, $0F, $C0, $0E, $00, $60, $00, $C7, $80, $60, 
$1F, $C3, $C0, $00, $00, $60, $00, $7E, $40, $60, 
$1F, $FD, $C0, $00, $00, $60, $00, $3E, $20, $E0, 
$00, $07, $FF, $C0, $00, $60, $00, $1C, $11, $C0, 
$00, $00, $FF, $00, $00, $60, $00, $0C, $1F, $C0, 
$00, $00, $00, $00, $00, $60, $00, $00, $0F, $80, 
$00, $00, $00, $00, $00, $60, $00, $00, $00, $00, 
$00, $00, $00, $00, $00, $40, $00, $00, $00, $00);
var
  i,j:word;
  n:byte;
  c:array [1..8] of byte;
begin
  for i:=1 to 290 do begin
    n:=hny[i];
    for j:=1 to 8 do begin
      c[9-j]:=n mod 2;
      n:=n div 2;
    end;
    for j:=1 to 8 do if c[j]=1 then write(#219) else write(#32);
  end;
  readln;
end.