помогите с рисованием, немножко) Опции

[tim4d]

Здраствуйте. нужна небольшая помошь с рисунком,
а именно сделать заливку и дорисовать полукруг снизу.
какими командами это делать не знаю. можно хотя бы их)
программа:

 program int;
uses graph, crt;
var grdriver, grmode, driver, m,n,x,y,z,a,b: integer;
begin
grdriver:=detect;
initgraph (grdriver, grmode, '');
setbkcolor (blue);
b:=1;
repeat
x:=120;y:=100;z:=80;m:=60;n:=40;a:=1700;
if b=1 then

    begin
    repeat
    {korobka}
    setcolor (7);
    fillellipse (330,365,40,14);
    line (290,365,290,390);
    line (370,365,370,390);

    {svechka}
    setcolor (14);
    line (310,365,310,x);
    line (350,365,350,x);
    fillellipse (330,365,20,7);
    fillellipse (330,x,20,7);
    setcolor (8);
    line (330,x,330,y);

    {ogon'}
    setcolor (4);
    line (330,y,340,z);
    line (330,y,320,z);
    line (330,n,340,z);
    line (330,n,320,z);
    setcolor (13);
    line (330,y,335,z);
    line (330,y,325,z);
    line (330,m,335,z);
    line (330,m,325,z);

    {zvyk}
    a:=a-7;
    sound (a);
    delay(1000);
    nosound;

    x:=x+1;
    y:=y+1;
    z:=z+1;
    m:=m+1;
    n:=n+1;

    delay(7000);
    cleardevice;
    until x=360;
    end;

setcolor (14);
OutTextXY(20, 40, 'again? yes=1/no=0');
readln (b);
until b=0;
closegraph;
end.
 

Сообщение отредактировано: tim4d - 3.10.2010 1:37

[TarasBer]

Не надо писать begin repeat ... until end
Можно просто repeat ... until