Помогите создал рисунок конуса в паскале а нижняя часть не отображается скажите что не так или что добавить надо

01.01.2001

помогите создал рисунок конуса в паскале а нижняя часть не отображается скажите что не так или что добавить надо
Program P1;
uses GraphABC;
Var gd,gm:integer;
Begin gd:=0;
Setwindowsize (500,500); line(190,50,90,150);
Setwindowsize (500,500); line(190,50,300,150);
Setwindowsize (500,500); ellipse(90,150,300,150);
end.

  • переделай под свою

    program dom;
    uses graphABC;
    begin
    setwindowwidth(700);
    setwindowheight(700);
    setfontsize(18);
    setfontcolor(clred);
    textout(100,100,'домик');
    rectangle(200,300,600,600);
    setbrushcolor(claqua);
    circle(400,225,40);
    setbrushcolor(claqua);
    fillrect(300,400,500,500);
    rectangle(300,400,500,500);
    line(400,400,400,500);
    line(300,450,500,450);
    line(200,300,400,150);
    line(400,150,600,300);
    end.

Вас заинтересует