<![CDATA[
PROGRAM GRAFICA_DEMO_1(output);
uses
Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
a,b,c,d,e:integer;
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{ Do graphics }
randomize;
for d:=1 to 10 do
begin
for c:=1 to 10000 do
begin
a:=random(640);
b:=random(480);
PUTPIXEL(a,b,12);
end;
end;
for d:=1 to 50 do
begin
a:=random(640);
b:=random(480);
c:=random(400);
circle(a,b,c);
end;
for d:=1 to 50 do
begin
a:=random(640);
b:=random(480);
c:=random(400);
e:=random(400);
ellipse(a,b,c,e,100,100);
end;
ReadLn;
CloseGraph;
end
else
WriteLn('Graphics error:',
GraphErrorMsg(ErrCode));
end.
]]>