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.