Домик графика - Turbo Pascal

Формулировка задачи:

Люди выручите Нужно сделать 1 дом как на рисунке! И с помощью цыкла сделать ещё 3 ему подобных между домами тоже должен быть одинаковый промежуток! Заранее спасибо

Решение задачи: «Домик графика»

Листинг программы

procedure Dom(x,y:integer);
begin
rectangle(x,y,x+80,y+10);
rectangle(x+50,y-15,x+60,y);
rectangle(x+10,y+10,x+70,y+80);
setfillstyle(1,8);
fillellipse(x+65,y-25,5,4);
fillellipse(x+80,y-35,9,7);
rectangle(x+15,y+25,x+35,y+45);
rectangle(x+45,y+35,x+65,y+75);
end;

Объяснение кода листинга программы

В процедуре Dom используются две переменные x и y, которые представляют координаты вершин домика.
Вызывается процедура rectangle для отрисовки прямоугольников, представляющих стены домика. Каждый прямоугольник имеет координаты (x,y), (x+50,y-15) и (x+10,y+10), а также размеры (x+80,y+10) и (x+60,y).
Вызывается функция setfillstyle для установки стиля заливки, который представлен числом 1 и параметром 8, что соответствует заполнению фигуры эллипсом.
Вызывается функция fillellipse для отрисовки эллипсов, представляющих окна домика. У эллипсов координаты (x+65,y-25) и (x+80,y-35), а также радиус 5 и высота 4.
Вызывается функция rectangle для отрисовки прямоугольника, представляющего дверь домика. У прямоугольника координаты (x+15,y+25) и (x+45,y+35), а также размеры (x+35,y+45).
Конец процедуры Dom.