Answer 1

Program P1;

uses graph;

var grdr, grmod:integer; x0,y0:integer; h,r1,r2:integer; T:integer;

begin

grdr:=detect;

initgraph (grdr,grmod,' ');

readln(x0,y0);

readln(h,r1,r2);

readln(T);

setcolor(T);

ellipse(x0,y0,0,360,r1,r2);

line(x0,y0-h,x0+r1,y0);

line(x0,y0-h,x0-r1,y0);

line(x0,y0-h,x0,y0);

closegraph;

readln

end.

Comments

өте жақсы жалпы өзім паскальды түсінетін адамдарды аса құрмет етемін!