program proce; var a,b,x,y,k:integer; procedure kvad; begin setColor(200,0,0); fillRect(x,y,20,20); repaint; delay(1000); setColor(255,255,255); fillRect(0,0,220,176); repaint; end; procedure keyop; begin if k=KE_KEY5 then kvad; end; begin a:=0; b:=0; x:=50; y:=50; while true do begin k:=getKeyPressed; keyop; setColor(0,200,0); fillRect(a,b,5,5); repaint; delay(120); end; end.