var
a:integer;
 begin
     clrscr;
    for a:= 1 to 60 do

   begin
    delay (25);
    clrscr;
    gotoxy (a,8);
    writeln ('           *         ');
     gotoxy (a,9);
    writeln ('          _|_        ');
    gotoxy (a,10);
     writeln ('        _/   \_      ');
     gotoxy (a,12);
     writeln ('       /|     |\     ');
     gotoxy (a,13);
     writeln ('      / |_____| \    ');
     gotoxy (a,14);
     writeln ('     /  /|_|_|\  \   ');
     gotoxy (a,15);
     writeln ('    /__/       \__\  ');
        end;
     begin
     for a:= 60 to 1 do
    delay (100);
    clrscr;
    gotoxy (a,8);
    writeln ('           *         ');
     gotoxy (a,9);
    writeln ('          _|_        ');
    gotoxy (a,10);
     writeln ('        _/   \_      ');
     gotoxy (a,12);
     writeln ('       /|     |\     ');
     gotoxy (a,13);
     writeln ('      / |_____| \    ');
     gotoxy (a,14);
     writeln ('     /  /|_|_|\  \   ');
     gotoxy (a,15);
     writeln ('    /__/       \__\  ');
                                end;
     end.