program pliiats;
uses crt;
var x,y:integer;
s:string;
begin
clrscr;
writeln('Sisesta x vaartus');
readln(x);
writeln('Sisesta y vaartus');
readln(y);
textcolor(white);
gotoxy(x,y);
write('*');
repeat
begin
s:=readkey;
textcolor(white);
gotoxy(x,y);
if s=chr(0) then
begin
s:=readkey;
if s='K' then
begin
gotoxy(x-1,y);
write('*');
x:=x-1;
end;
if s='M' then
begin
gotoxy(x+1,y);
write('*');
x:=x+1;
end;
if s='H' then
begin
gotoxy(x,y-1);
write('*');
y:=y-1;
end;
if s='P' then
begin
gotoxy(x,y+1);
write('*');
y:=y+1;
end;
end;
end;
until s=chr(27);
end.