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