Umiestnenie súboru www.TrSek.com/zadania/animauto.pas

program anim_auto;
uses crt,dos;
var i:integer;

begin
  for i:=1 to 50 do begin
   gotoxy(i,1);write('          ************* ');
   gotoxy(i,2);write('         *************** ');
   gotoxy(i,3);write('         ***************** ');
   gotoxy(i,4);write('   ****************************** ');
   gotoxy(i,5);write('  ********************************* ');
   gotoxy(i,6);write(' *********************************** ');
   gotoxy(i,7);write('       *****            ***** ');
   gotoxy(i,8);write('        ***              *** ');
    delay(100);
  end;
  readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com