|
11. Jan 2007|14:32 |
uses graph,crt;
var color,i,x,y,x1,y1,stars,gd,gm:integer;
key:char;
s:string;
begin
gd:=detect;
initgraph(gd,gm,'c:\bp\bgi\');
if graphresult<>0 then
begin
writeln('grafiku neizdevas palaist');
readln;
halt;
end;
{sataisam paletes}
setrgbpalette(6,0,0,63);
setcolor(6);
circle(50,50,30);
repeat until keypressed;
end. |
|