uses crt, fastgraph;

var	x, y: byte;
	binLine: string;
	qr: array[0..34] of string = (
		'11111111111111111111111111111111111',
		'10000000100010100111111100100000001',
		'10111110100011010000011111101111101',
		'10100010101001000100111001101000101',
		'10100010100101000110110101101000101',
		'10100010111111001110110100101000101',
		'10111110101100100100001001101111101',
		'10000000101010101010101010100000001',
		'11111111110110011000111100111111111',
		'10011000111101001101010100110100001',
		'10011001010010110010011111011001101',
		'10100010101100111001110011111010011',
		'10101111011001010100111101011111001',
		'11101000001010000001001010111100111',
		'10100011100111111000101100000001101',
		'10110000101011000000111001110010011',
		'10011001001010111001111010100001001',
		'10110110001100100100000111011011111',
		'10110111010110001110101010111101101',
		'10111100001001110101110011111010011',
		'10010001011110110101100011110001111',
		'11100010100101011101000100001011111',
		'10010101010010110010110111011011101',
		'11101100100111100011100011111011011',
		'11110111101001011001110101111101111',
		'10001010110001111101000110000010011',
		'11111111100110001001111110111011011',
		'10000000110111010101100010101000111',
		'10111110101111010100100000111001001',
		'10100010100010001100100110000011101',
		'10100010110101010010011110111111001',
		'10100010111010100001110010111101011',
		'10111110100100000101110011000001111',
		'10000000101000101011000111101111101',
		'11111111111111111111111111111111111'    
	);

begin
	InitGraph(5);
	TextBackground(0);
	SetColor(1);

    for y := 0 to 34 do begin
		binLine := qr[y];
		for x := 1 to 35 do begin
			if (binLine[x] = '1') then begin
				PutPixel(x,y);
			end;
		end;
	end;

	ReadKey;
end.