program mass;
  Uses CRT;
var
  r,k:integer;



begin
  for k:=5 to 70 do
  begin
    cursoroff;
    Textcolor(15);
    gotoxy(k,10);
    writeln('*');
    Delay(50);
    Textcolor(0);
    gotoxy(k,10);
    writeln(' ');
    end;
  gotoxy(k,10);
  textcolor(15);
  writeln('*');
  Readln;
end.