составте программу в рисовании PascalABC

uses graphABC;var x,y:integer;beginx:=windowwidth div 2;y:=windowheight-80;rectangle(x-100,y,x+100,y+50);circle(x-100,y-100,20);circle(x+100,y-100,20);line(x,y,x-86,y-86);line(x,y,x+86,y-86);line(x,y,x,y-160);arc(x,y-140,20,0,180);end.