uses graph, crt;
var d, m: integer;
    keskx, kesky: integer;
    nurk, raadius: real;
begin
  d:=vga; m:=vgaMed;
  initgraph(d, m, '');
  nurk:=0; raadius:=10;
  keskx:=200; kesky:=100;
  repeat
    putpixel(keskx+round(raadius*cos(nurk)),
             kesky-round(raadius*sin(nurk)), white);
    delay(50);
    nurk:=nurk+0.1;
    cleardevice;
  until keypressed;
  closegraph;
end.