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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.