Gal galit padet nuspalvisnti figuras.Reikia kad kas antra fygurele butu nuspalvinta vis kita spalva ir kitokiu rastu

program figura;
uses graph;
var x,y : integer;
begin
x:=detect;
initgraph (x,y,'c\ program files\FPS\bgi') ;
line (50,50,650,50);
line (650,50,650,650);
line (650,650,50,650);
line (50,650,50,50);
line (350,50,650,350);
line (650,350,350,650);
line (350,650,50,350);
line (50,350,350,50);
line (310,90,390,90);
line (270,130,430,130);
line (230,170,470,170);
line (190,210,510,210);
line (150,250,550,250);
line (110,290,590,290);
line (70,330,630,330);
line (70,370,630,370);
line (110,410,590,410);
line (150,450,550,450);
line (190,490,510,490);
line (230,530,470,530);
line (270,570,430,570);
line (310,610,390,610);
line (70,330,70,370);
line (110,290,110,410);
line (150,250,150,450);
line (190,210,190,490);
line (230,170,230,530);
line (270,130,270,570);
line (310,90,310,610);
line (350,50,350,650);
line (390,90,390,610);
line (430,130,430,570);
line (470,170,470,530);
line (510,210,510,490);
line (550,250,550,450);
line (590,290,590,410);
line (630,330,630,370);
line (50,310,70,330);
line (50,240,110,290);
line (50,170,150,250);
line (50,100,190,210);
line (80,50,230,170);
line (170,50,270,130);
line (260,50,310,90);
line (430,50,390,90);
line (510,50,430,130);
line (590,50,470,170);
line (650,70,510,210);
line (650,150,550,250);
line (650,230,590,290);
line (650,310,630,330);
line (650,390,630,370);
line (650,470,590,410);
line (650,550,550,450);
line (650,630,510,490);
line (590,650,470,530);
line (510,650,430,570);
line (420,650,390,610);
line (270,650,310,610);
line (190,650,270,570);
line (110,650,230,530);
line (50,620,190,490);
line (50,540,150,450);
line (50,460,110,410);
line (50,390,70,370);

readln;closegraph;
end.