01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / DRDRDRDR

Program DRONHUIL;
USES crt, graph;
var
gd,gm, i, x, y:integer;
Procedure dron(x, y, cp, cg:integer);
begin
setfillstyle(1, cp);
floodfill(x, y, cg);
end;
BEGIN
gd:=detect;
initgraph(gd, gm, 'd:\bp7\bgi');
dron(100, 100, 0, 15);
for i:=500 to 1000 do
putpixel(random(i),random(i), random(i));
setcolor(6);
line(0, 320, 640, 320);
setfillstyle(9, 6);
floodfill(5, 350, 6);
setcolor(0);
setlinestyle(0, 0, 3);
line(250, 470, 300, 470);
line(250, 470, 235, 440);
line(300, 470, 315, 440);
line(235, 440, 315, 440);
line(235, 440, 250, 425);
line(315, 440, 300, 425);
line(250, 425, 300, 425);
readln
END.