uses graph, crt;
var nurk: real;
d, m: integer;
begin
 d:=detect; initgraph(d, m, '');
 nurk:=0;
 repeat
  cleardevice;
  putpixel(round(sin(nurk)), round(cos(nurk)), white);
  delay(10);
  nurk:=nurk+0.1;
 until keypressed;
 closegraph;
end.