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



begin
  r:=10;
  for k:=5 to 70 do

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

  gotoxy(k,r);
  textcolor(15);
  writeln('*');
  Readln;
end.