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

program elf;
uses graph, Crt;
var gd,gm,d,f:integer;
x, i :integer;
h, y:real;
procedure zaliv(x,y,cp,cg:integer);
begin
setfillstyle(1,cp);
floodfill(x,y,cg);
end;
begin
gd:=detect;
initgraph(gd,gm,'d:\bp7\bgi');
zaliv(50,50,0,6);
for i:=500 to 2000 do
putpixel(random(i), random(i), i);
setcolor(1);
line(0,220,640,220);
zaliv(400,450,1,1);
setcolor(14);
circle(30, 30, 30);
zaliv(30, 30, 14, 14);
setcolor(2);
SetFillStyle(9, 2);
bar(163, 350, 457, 240);
bar(180, 240, 210, 190);
bar(440, 240, 410, 190);
ellipse(161, 190, 280, 344, 20, 50);
floodfill(178, 238, 8);
ellipse(459, 190, 196, 260, 20, 50);
floodfill(443, 238, 8);
ellipse(229, 190, 196, 260, 20, 50);
ellipse(391, 190, 280, 344, 20, 50);
floodfill(212, 237, 8);
floodfill(407, 237, 8);
ellipse(225, 148, 187, 252, 30, 45);
ellipse(165, 148, 290, 353, 30, 45);
line(175, 190, 215, 190);
ellipse(455, 148, 187, 252, 30, 45);
ellipse(395, 148, 290, 353, 30, 45);
line(405, 190, 445, 190);
setfillstyle(1, 2);
bar(270, 240, 350, 140);
bar(280, 240, 340, 95);
Ellipse(250,10,290,350,60,90);
Ellipse(368,10,190,252,60,90);
Line(270, 95, 348, 95);
Zaliv(290, 90, 1, 8);
zaliv(200, 188, 14, 8);
zaliv(420, 188, 14, 8);
arc(275, 141, 180, 270, 20);
arc(345, 141, 270, 0, 20);
line(255, 141, 255, 240);
line(365, 141, 365, 240);
zaliv(260, 180, 2, 8);
zaliv(360, 180, 2, 8);
readln
end.