Mistři v programování na #hovnokod

Delphi #627

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const
  C: array[0..5] of Cardinal = ($4A9AAA90, $8AA33308, $8AA2AA88, $4C9AAA90, $22200, $822200);

var
  I: Byte;
  B: PByte;
begin
  for I := 191 downto 0 do
  begin
    B := @C[I div 32];
    Inc(B, (I - (I div 32) * 32) div 8);
    if (B^ and (1 shl (I mod 8))) <> 0 then
      Write('X')
    else
      Write(' ');
    if (I mod 32) = 0 then
      Writeln('');
  end;
  ReadLn;
end.

HovnoKod,