program keys; var k, x, y:integer; im:image; 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; im:=loadImage('/kartinka.png'); while true do begin key; setColor(255, 255, 255); fillRect(0, 0, getWidth, getHeight); setColor(0, 0, 0); drawImage(im,x,y); repaint; delay(20); end; end.