На паскале: организуйте движение точки через центр экрана справа налево.

Вот маленькая точка летит по экрану...

uses Crt, Graph;
 var gd, gm, i: integer;
begin
 ClrScr;
 InitGraph(gd, gm, ' ');
{
В апострофах расписать путь к драйверу экрана egavga.bgi
}
 SetBkColor(1);
 for i:=640  downto 0 do
   begin
     SetColor(2);
     circle(i,240, 1);
     Delay (10);
     SetColor(1);
     Circle(i,240,1);
   end;
 ReadLn;
end.