Как нарисовать букву А в паскале

Program dom;

uses graphABC;

begin

setwindowwidth (700) ;

setwindowheight (700) ;

setfontsize (18) ;

setfontcolor (clred) ;

textout (100,100,'äîìèê') ;

rectangle (200,300,600,600) ;

setbrushcolor (claqua) ;

circle (400,225,40) ;

setbrushcolor (claqua) ;

fillrect (300,400,500,500) ;

rectangle (300,400,500,500) ;

line (400,400,400,500) ;

line (300,450,500,450) ;

line (200,300,400,150) ;

line (400,150,600,300) ;

end