program liikumine;
uses crt;
var x, y: 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;
 y:=10;
 kirjuta(x, y);
 repeat
  s:=ReadKey;
  textcolor(black);
  kirjuta(x, y);
  if s=chr(0) then begin
   s:=readkey;
   if (s='K') and (x>3)
      then x:=x-1;
   if (s='M') and (x<75)
      then x:=x+1;
   if (s='H') and (y>3) then y:=y-1;
   if (s='P') and (y<18) then y:=y+1;
  end;
  textcolor(white);
  kirjuta(x,y);
 until s=chr(27);
  TextMode(LastMode);
end.