Uses Crt,Knihovna;
  Var i:integer;
      a,b,c,d,e:integer;
  Label l;
Begin
  textcolor(7);textbackground(0);ClrScr;
  VytvorRam(1,1,80,24,1);
  vytvorram(20,8,61,16,1);
  vytvorvlastniokraj('Ì͹_____');
  vytvorram(1,12,20,12,0);
  Vytvorram(61,12,80,12,0);
  vytvorram(22,9,59,15,2);;
  VytvorNapis(25,11,2,'RAMECKY');
  VytvorNapis(11,21,4,'DEMOVERZE');
  readkey;
  ClrScr;
  for i:=1 to 12 do
    Begin
      Vytvorram(2*i-1,i,82-2*i,25-i,1);
      Delay(100);
    End;
  Randomize;
  readkey;
  ClrScr;
  Repeat

l:
    a:=random(80)+1;
    b:=random(24)+1;
    c:=random(80)+1;
    d:=random(24)+1;
    e:=random(3)+1;
    textcolor(random(15)+1);
    textbackground(random(16));
    if (c<a+1) or (d<b+1) then goto l;
    Vytvorram(a,b,c,d,e);
    delay(10);
  Until Keypressed;
End.