program keys;

 var k, x, y:integer;

 procedure key();
  begin
   k:=getKeyPressed;
   if k=KE_KEY2 then y:=y-1;
   if k=KE_KEY4 then x:=x-1;
   if k=KE_KEY8 then y:=y+1;
   if k=KE_KEY6 then x:=x+1;
  end;

begin
 x:=0; y:=0;

 while true do
  begin
   key;
   setColor(255, 255, 255);
   fillRect(0, 0, getWidth, getHeight);
   setColor(0, 0, 0);
   fillRect(x, y, 50, 50);
   repaint;
   delay(20);
  end;

end.