program liikumine;
uses crt;
var x,y, kiirusx, kiirusy: integer;

procedure kirjutaA(kx, ky: integer);
begin
 gotoxy(kx,   ky  ); writeln('    *    ');
 gotoxy(kx,   ky+1); writeln('   * *   ');
 gotoxy(kx,   ky+2); writeln('  *   *  ');
 gotoxy(kx,   ky+3); writeln(' ******* ');
 gotoxy(kx,   ky+4); writeln('*       *');
end;


begin
 clrscr;
 x:=5;
 y:=4;
 kiirusx:=2;
 kiirusy:=0;
 repeat
  if ((x>70) and (kiirusx=2)) then 
     begin kiirusx:=0; kiirusy:=1; end;
  if ((y>17) and (kiirusy=1)) then
     begin kiirusx:=-2; kiirusy:=0; end;
  if ((x<5) and (kiirusx=-2)) then
     begin kiirusx:=0; kiirusy:=-1; end;
  if ((y<4) and (kiirusy=-1)) then
     begin kiirusx:=2; kiirusy:=0; end;
  x:=x+kiirusx;
  y:=y+kiirusy;
  textcolor(white);
  kirjutaA(x,y);
  delay(70);     
  textcolor(black);
  kirjutaA(x, y);
 until keypressed;
  TextMode(LastMode);
end.