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

Question

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

Answer 1

Uses graphABC;
var x,y:integer;
begin
x:=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.