Паскаль!!! Помогите пожалуйста нарисовать в Pascal ABC рисунок.

uses GraphABC;Var W,H:integer;BeginW:=WindowWidth;H:=WindowHeight;SetPenColor(clGreen);SetPenWidth(3);Line(0,H div 2,W,H div 2);Line(W div 2,0,W div 2,H);Line(3*(W div 4),0,3*(W div 4)+(H div 4),(H div 4));Line(3*(W div 4),0,3*(W div 4)-(H div 4),(H div 4));Line(3*(W div 4)+(H div 4),(H div 4),3*(W div 4),2*(H div 4));Line(3*(W div 4)-(H div 4),(H div 4),3*(W div 4),2*(H div 4));Rectangle(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8)) ;Line(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8));Line(3*(W div 4)+(H div 8),H div 8,3*(W div 4)-(H div 8),3*(H div 8));End.