uses crt;
var a,b,c,j,i,x,y:integer;
     p:char;
begin
TextBackGround(black);
clrscr;
for x:=1 to 80 do
 for y:=1 to 1 do
 begin
 GoToXy(x,y);
  write(' *');
  delay(2000)
  end;
For x:=80 to 80 do
    for y:=1 to 23 do
    begin
    GoToXY(x,y);
       write('*');
       delay(2000);
       clrscr;
    end;
For x:=80 downto 1 do
  for y:=23 to 23 do
  begin
  gotoxy(x,y);
  write('*');
  delay(2000);
  clrscr;
  end;

For x:=1 to 1 do
  for y:=23 downto 1 do
  begin
  GoToXY(x,y);
  write('*');
  delay(2000);
  clrscr;
  end;
end.