program liikumine;
uses crt;
var x, kiirus: 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;
 kiirus:=1;
repeat
if x<5 then kiirus:=abs(kiirus);
if x>70 then kiirus:=-abs(kiirus);
x:=x+kiirus;
 textcolor(white);
 kirjutaA(x,10);
 delay(30);     
 textcolor(black);
 kirjutaA(x, 10);
until keypressed;
  TextMode(LastMode);
end.