uses crt,graph;
var
graphmode,graphdriver,errorcode:integer;
x,y,i:integer;
begin
graphdriver:=detect;
initgraph(graphdriver,graphmode,'egavga.bgi');
errorcode:=graphresult;
if errorcode<>grok then
begin
clrscr;
writeln('Graphics error: ',grapherrormsg(errorcode));
writeln('Program aborted...');
halt(1); end;
setcolor(green);
circle(320,240,220);
setcolor(lightgreen);
circle(320,240,218);
circle(320,240,2);
setcolor(lightgreen);
setlinestyle(dottedln,0,normwidth);
line(320,238,320,22);
readln;
end.
Сообщение отредактировано: Jaxx -