Сколько типов графических примитивов (их повторение не учитывается) и сколько линий содержит фрагмент программы?

{
Canvas->Brush->Color = clBlue;
Canvas->Rectangle(50,50,290,210);
Canvas->Pen->Color = clBlack;
Canvas->Pen->Width = 1;
Canvas->MoveTo(50,180);
Canvas->LineTo(290,180);
Canvas->MoveTo(50,170);
Canvas->LineTo(290,170);
Canvas->MoveTo(60,175);
Canvas->LineTo(80,175);
Canvas->MoveTo(100,175);
Canvas->LineTo(120,175);
Canvas->MoveTo(140,175);
Canvas->LineTo(160,175);
Canvas->MoveTo(180,175);
Canvas->LineTo(200,175);
Canvas->MoveTo(220,175);
Canvas->LineTo(240,175);
Canvas->MoveTo(260,175);
Canvas->LineTo(280,175);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(95,155,105,165);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(80,160,90,170);
Canvas->Pen->Color = clBlack;
Canvas->MoveTo(85,160);
Canvas->LineTo(85,170);
Canvas->Brush->Color = clBlack;
Canvas->Rectangle(115,90,185,170);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(125,100,135,110);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(125,120,135,130);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(125,140,135,150);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(155,100,165,110);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(155,120,165,130);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(155,140,165,150);
Canvas->Brush->Color = clBlack;
Canvas->Rectangle(190,100,250,170);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(200,110,210,120);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(200,130,210,140);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(200,150,210,160);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(230,110,240,120);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(230,130,240,140);
Canvas->Brush->Color = clYellow;
Canvas->Rectangle(230,150,240,160);
Canvas->Brush->Color = clWhite;
Canvas->Ellipse(245,65,265,85);}