program okragczerwony;

uses Crt, Graph;

var d,m:integer;

begin

d:=DETECT;

initgraph(d,m,'');

setcolor(red);

circle(200,200,100);

repeat until KeyPressed;

CloseGraph;

end.

program trojkotrownoboczny;

uses Crt, Graph;

var d,m:integer;

begin

d:=DETECT;

initgraph(d,m,'');

Line(100,200,300,200);

Line(100,200,200,7);

Line(200,7,300,200);

repeat until KeyPressed;

CloseGraph;

end.

program prostakat;

uses Crt, Graph;

var d,m:integer;

begin

d:=DETECT;

initgraph(d,m,'');

rectangle(20,20,500,100);

repeat until KeyPressed;

CloseGraph;

end.

---