В лазарусе..
пишут что проект успешно собран а на форме ничего не появлется..
uses
graph;
const
radius=200;
var
driver,mode:integer;
ugol:real;
x,y:integer;
x0,y0:integer;
begin
driver:=installuserdriver('svga256',nil);
mode:=4;
initgraph(driver,mode,'');
x0:=getmaxx div 2;
y0:=getmaxy div 2;
ugol:=0;
while ugol<2*pi do begin
x:=x0+round(radius*cos(ugol));
y:=y0+round(radius*sin(ugol));
putpixel(x,y,white);
ugol:=ugol+pi/180;
end;
readln;
closegraph;
end.