program liikumine;
uses crt;
var x : integer;
s: string;


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


begin
 clrscr;
 x:=15;
 kirjuta(x, 10);
 repeat
  s:=ReadKey;
  textcolor(black);
  kirjuta(x, 10);
   if (s='k') and (x>3)
      then x:=x-1;
   if (s='l') and (x<75)
      then x:=x+1;
  textcolor(white);
  kirjuta(x,10);
 until s='q';
  TextMode(LastMode);
end.