Uses Crt,Graph;
var 
	sterownik,tryb,i,j:Integer; 
	t1: array[1..4] of PointType = ((X: 540; Y: 200), (X: 640; Y:100), (X: 740; Y: 200), (X: 540; Y: 200));
	t2: array[1..4] of PointType = ((X: 500; Y: 310), (X: 640; Y:200), (X: 780; Y: 310), (X: 500; Y: 310));
	t3: array[1..4] of PointType = ((X: 460; Y: 420), (X: 640; Y:310), (X: 820; Y: 420), (X: 460; Y: 420));
	t4: array[1..4] of PointType = ((X: 420; Y: 530), (X: 640; Y:420), (X: 860; Y: 530), (X: 420; Y: 530)); //tree points

procedure bombka(x,y:integer); //to create staff on tree
	begin
		i:=random(12);
		j:=random(12);
		SetColor(red);
		setfillstyle(i,j);
		fillellipse(x,y,i,i);
	end;
	
Begin
	randomize;
    Sterownik:=detect;
	tryb:=9;
    InitGraph(sterownik,tryb,'..\..\..\..\..\~PROGRAMY-GRY\notepad++\pascal\tp\BGI'); //link to bgi from turbopascal
	
    SetColor(red);
	moveto(0,0);
	
	//wypelnienie
		//niebieskie
			setfillstyle(1,blue);
			Bar(0,0,1280,980);
		
		//bialosc
			setfillstyle(8,white);
			Bar(0,700,1280,980);
		
		//kora
			setfillstyle(1,brown);
			Bar(600,530,680,750);
		
		//trojkat 1
			setfillstyle(6,green);
			setcolor(black);
			fillpoly(3,t1);
			
		//trojkat 2
			fillpoly(3,t2);
			
		//trojkat 3
			fillpoly(3,t3);
			
		//trojkat 4
			fillpoly(3,t4);
			
		//bombki
			bombka(640,100);
			bombka(500,310);
			bombka(640,310);
			bombka(780,310);
			bombka(420,530);
			bombka(860,530);
			
		//text
		moveto(580,50);
		outtext('HaHaHa, to jest choinka!'); //tree text
			
    repeat until keypressed;
    CloseGraph;

	end.