Uses graphabc;
begin
setpencolor (clGreen);
line (0,900,600,900);
setpencolor (clBrown);
rectangle( 100,400,550,900);
setpencolor (clPurple);
rectangle ( 150,450,250,600);
rectangle ( 200,450,250,525);
rectangle ( 150,525,201,600);
setpencolor (clPurple);
rectangle (400,450, 500,600);
line ( 500,525,400,525);
line ( 450,450,450,600);
setpencolor (clBlack);
rectangle ( 250,650,400,900);
setpencolor (clTeal);
line ( 70,400,580,400);
line ( 70,400,325,300);
line (325,300,580,400);
end.
Такой подойдёт?
