паскаль5_3

Изображения города и avto.jpg см. здесь

program Avto3;

   uses GraphABC;

var fon, avto, x, y, w, h : integer;

 begin

  SetWindowSize(600,300);

  fon:= LoadPicture('gorod.gif'); { загрузка изображений}

  avto:= LoadPicture('avto.jpg');

  DrawPicture(fon,0,0);

  x:=0; y:=200; w:=200; h:=100;

  SetPenColor(clWhite);

  While x<400 do

   begin

     DrawPicture(avto,x,y,w,h); { вывод изображений}

     sleep(50);

     Rectangle(x,y,x+w,y+h);

     x:=x+10; w:=w-2; h:=h-1;

   end;

end.