program liikumine;
uses crt;
var i: integer;
begin
 clrscr;
for i:=1 to 60 do begin
 textcolor(white);
 gotoxy(i, 10);
 write('*');
 delay(100);
 textcolor(black);
 gotoxy(i, 10);
 write('*');
end;
  TextMode(LastMode);
end.