lottery=
{{28,12,15,21,19,01},
{13,28,07,21,26,16},
{16,04,05,02,06,20},
{04,08,17,27,28,31},
{19,24,20,27,03,26},
{32,22,08,26,21,23},
{32,27,33,16,18,04},
{18,28,05,03,32,09},
{26,08,05,20,30,06},
{04,29,06,19,12,27},
{31,08,05,27,07,14},
{31,09,11,33,13,27},
{16,05,01,21,06,12},
{32,33,14,29,06,26},
{29,09,32,02,03,15},
{01,07,17,23,30,13},
{31,08,33,04,32,03},
{17,26,24,14,01,13},
{22,13,32,06,26,04},
{26,21,23,05,29,09},
{21,22,01,02,20,05},
{04,03,16,13,27,02},
{13,14,04,19,23,28},
{02,11,27,09,07,21},
{24,03,17,04,19,32},
{02,01,32,29,22,18},
{27,06,08,11,16,14},
{14,07,27,16,17,05},
{04,14,03,07,19,09},
{32,20,15,08,13,17},
{16,32,03,10,31,12},
{24,20,26,18,05,31},
{15,23,27,31,22,20},
{33,16,10,02,17,15},
{03,29,09,13,21,27},
{10,07,04,17,16,21},
{32,25,12,02,24,23}};

For[t = 1, t < Length[
lottery], t++; Show[ListPlot[lottery[[t]], PlotStyle -> {PointSize[.04], RGBColor[1, 0, 0] }]]]