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:=3;
 kiirusx:=2;
 kiirusy:=1;
repeat
if x<5 then kiirusx:=abs(kiirusx);
if x>70 then kiirusx:=-abs(kiirusx);
x:=x+kiirusx;
if y<3 then kiirusy:=abs(kiirusy);
if y>19 then kiirusy:=-abs(kiirusy);
y:=y+kiirusy;
 textcolor(red);
 kirjutaA(x,y);
 delay(70);     
 textcolor(black);
 kirjutaA(x, y);
until keypressed;
 TextMode(LastMode);
end.