Pascal ABC

koLibri

Для тех кто понимает.
ЧТо прописать чтоб справа был забор

Сам дом

uses graphABC;
begin
setwindowsize(700,500);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,700,300);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,300,700,500);
setpencolor(clsilver);
setbrushcolor(clsilver);
rectangle(100,450,350,250);
setpencolor(clwhite);
setbrushcolor(clYELLOW);
rectangle(150,400,220,300);
rectangle(230,400,300,300);
line(100,250,225,100);
line(225,100,350,250);
floodfill(225,120,clgray);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
end.

Добавлено через 05:04 мин.
Ну что,некто?

Добавлено через 12:57 мин.
жаль