感谢1402韩天薏同学提供
uses crt;
var
i:byte;
begin
cursoroff;
textcolor(yellow);
for i:=24 downto 2 do begin
clrscr;
gotoxy(3*i+1,i-1);
write('/');
gotoxy(3*i-1,i);
write('---<');
gotoxy(3*i+1,i+1);
write('\');
delay(150);
end;
for i:=2 to 24 do begin
clrscr;
gotoxy(3*i+1,i-1);
write('\');
gotoxy(3*i,i);
write('>---');
gotoxy(3*i+1,i+1);
write('/');
delay(150);
end;
readln;
end.
