Напишите пожалуйста программу (Фото)

uses GraphABC; Var A:array of point; Begin A:=new point[3]; Brush.Color:=clGreen; A[0]:=(Window.Width div 2,170); A[1]:=(Window.Width div 2 +80,230); A[2]:=(Window.Width div 2 -80,230); Polygon(A); A[0]:=(Window.Width div 2,120); A[1]:=(Window.Width div 2 +50,180); A[2]:=(Window.Width div 2 -50,180); Polygon(A); A[0]:=(Window.Width div 2,90); A[1]:=(Window.Width div 2 +30,130); A[2]:=(Window.Width div 2 -30,130); Polygon(A); Brush.Color := clBrown; FillRect(A[0].X-10,230,A[0].X+10,250); End.