Готовые рисунки

Прямоугольник и окружность различных цветов
Uses graphabc;
Begin
    setwindowsize(640,480);
    setpencolor(clBlue); {устанавливает голубой цвет пера для рисования контура прямоугольника}
    setpenwidth(6); {устанавливает ширину пера}
    rectangle(50,50,250,150);{рисует прямоугольник, заданный координатами противоположных вершин}
    setpencolor(clred); {устанавливает красный цвет пера для рисования контура окружности}
    circle(350,100,60); {рисует окружность с центром в точке с координатами (350,100) и радиусом 60}
End.

Прямоугольник и окружность различных цветов. Закрасить и подписать фигуры.
Uses graphabc;
Begin
    setwindowsize(800,600);
    clearwindow(clYellow); {устанавливает желтый цвет фона}
    setpencolor(clteal);{устанавливает сине-зеленый цвет пера}
    setpenwidth(5); {устанавливает ширину линии}
    setbrushcolor(clolive); {устанавливает оливковый цвет кисти}
    rectangle(100,100,300,200); {рисует закрашенный прямоугольник}
    setbrushcolor(clblue); {устанавливает синий цвет кисти}
    circle(400,150,50); {рисует закрашенный синим цветом круг}
    setfontstyle(fsbold); {устанавливает стиль шрифта}
    setfontsize(15); {устанавливает размер шрифта}
    setbrushcolor(clwhite); {устанавливает белый цвет кисти}
    setfontcolor(clolive); {устанавливает оливковый цвет шрифта}
    textout(100,220,'Прямоугольник');
    setfontcolor(clblue); {устанавливает синий цвет шрифта}
    textout(380,220,'Круг');
End.

Треугольник линиями различных цветов.
Uses graphabc;
Begin
    setwindowsize(640,480);
    setpenwidth(5); {устанавливает ширину текущего пера. в скобках указывается количество пикселей, образующих ширину линии}
    setpencolor(clred); {устанавливает красный цвет пера}
    line(100,200,170,70); {рисует отрезок от точки с координатами (120,150) до точки с координатами с координатами (150,80)}
    setpencolor(clGreen); {устанавливает зеленый цвет пера}
    line(170,70,250,200);{рисует отрезок от точки(150,80)до точки(150,80)}
    setpencolor(clBlue); {устанавливает синий цвет пера}
    line(250,200,100,200);{рисует отрезок от точки(80,150)до точки(120,150)}
End.

Нарисовать и раскрасить снеговика.
Uses graphabc;
Begin
    setwindowsize (640,480);
    setwindowtitle('Снеговик');
    setpencolor(clnavy);
    setpenwidth(2);
    setbrushcolor(clSilver);
    circle(185,75,25); {шары}
    circle(185,140,40);
    circle(185,235,55);
    ellipse(155,60,215,70); {ведро}
    line(155,62,170,25);
    line(170,25,200,25);
    line(200,25,215,62);
    floodfill(160,58,clnavy);
    floodfill(185,53,clnavy);
    setpencolor(clblack);
    setpenwidth(4);
    line(160,140,130,160); {руки}
    line(220,140,257,140);
    setbrushstyle(bsHorizontal);
    setbrushcolor(clbrown);
    setpencolor(clbrown);
    setpenwidth(3);
    rectangle(250,120,257,290); {веник}
    setpenwidth(2);
    line(250,120,230,82);
    line(251,120,240,79);
    line(253,120,250,78);
    line(255,120,260,80);
    line(257,120,270,82);
    circle(172,76,3); {глаза}
    circle(198,76,3);
    setpencolor (clred);
    rectangle(177,90,193,91); {рот}
    setpencolor (clbrown);
    line(180,80,190,80); {нос}
    line(190,80,200,89);
    line(200,89,180,80);
    floodfill(190,83,clbrown);
    setfontcolor(clred);
    setfontstyle(fsbold);
    setfontsize(10);
    setbrushcolor(clwhite);
    textout (10,10,'Happy New Year!');
End.

Треугольник и залитый произвольным цветом.
Uses graphabc;
Begin
    setwindowsize(640,480);
    clearwindow(clWhite); {очищает графическое окно белым цветом}
    setpenwidth(3); {устанавливает ширину текущего пера}
    setpenstyle(pssolid);{устанавливает стиль линии - сплошная линия}
    setpencolor(clgreen); {устанавливает зеленый цвет пера}
    line(100,200,170,70); {рисует линии зеленым цветом}
    line(170,70,250,200);
    line(250,200,100,200);
    floodfill(150,120,clrandom); {Закрашивает треугольник цветом random}
End.