Графика на Паскале

[Олька - Солнце]

Здравствуйте. Хотела бы попросить вас помочь мне. Мне надо составить задачу на Паскале. А именно, Составить домик с крышей на Паскале с использованием простейших функций и чтоб в самом домике было круглое окошко.

[fikret123]

uses graph
и рисуешь line, circle, etc..

[Serge_Bliznykov]

fikret123, +1

вот, программа, которая рисует большой красивый домик.
НО окна обычные, квадратные.
Самостоятельно переделайте на круглые!

program domik;
uses graph,crt;
var t,r,x,y,i,starti :integer;
st:string;
begin
t:=detect;
initgraph(t,r,'');
setlinestyle(0,0,1);
setcolor(14);
rectangle(90,150,420,400);
line(90,150,250,50);
line(250,50,420,150);
rectangle(100,200,170,300);
rectangle(200,200,270,300);
setfillstyle(10,1);
floodfill(101,201,14);
setfillstyle(10,1);
floodfill(201,201,14);
setlinestyle(0,0,3);
line(100,250,170,250);
line(135,250,135,300);
line(200,250,270,250);
line(235,250,235,300);
setlinestyle(0,0,1);
rectangle(300,240,380,380);
ellipse(340,240,0,180,40,30);
setfillstyle(1,6);
floodfill(301,241,14);
setfillstyle(1,2);
floodfill(350,239,14);
setfillstyle(2,6);
floodfill(71,151,14);
circle(250,100,10);
setfillstyle(1,3);
floodfill(75,149,14);
setfillstyle(1,2);
floodfill(235,100,14);
line(332,100,332,50);
line(332,50,365,50);
line(365,50,365,120);
setfillstyle(1,5);
floodfill(320,100,14);
readln;
closegraph;
end.