program proce;
 var a,b,x,y:integer;
 procedure kv(); // Ça÷eì cêoáêè? Ïpoöeäypa íe ïpèíèìaeò ïapaìeòpoâ
 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(); // Oïÿòü cêoáêè...
  var k:integer;
 begin
  k:=getKeyPressed;
  if k=KE_KEY5 then kv; // Bûçoâ äpyãoé ïpoöeäypû áeç ïepeäa÷è ïapaìeòpoâ
 end;

begin // Ýòo ía÷aëo ïpoãpaììû
  a:=0;
  b:=0;
  while true do
  begin // Ha÷aëo öèêëa
   key; // Bûçoâ ïpoö. áeç ïepeäa÷è ïapaìeòpoâ
   setColor(0,200,0);
   fillRect(a,b,5,5);
   repaint;
   delay(120);
  end; // !!! Koíeö öèêëa
  begin // A ýòo ÷òo?
   key;
   kv;
   delay(1000);
  end; // È ýòo?
end. // Koíeö ïpoãpaììû