program obraz;
uses crt;

type pole=array[1..70] of byte;

var v:pole;
    I:integer;
    y,a:longint;

procedure posun;
 var I,poloha:integer;
 begin
 poloha:=1;
           repeat
           if v[poloha]<1 then begin
                                inc(v[poloha]);
                                exit;
                                end;
           v[poloha]:=0;
           poloha:=poloha+1;

              if poloha>(a) then exit;

           until false;
 end;

procedure vypis;
 var x,y:byte;
 begin

 for y:=1 to (a) do begin
      gotoxy(((y mod 24)-1)*2+1,(y div 24)+1);
      textcolor(v[y]+1);
      write('лл');
      if (y mod 29 )=0 then writeln;
                     end;
 end;

begin
clrscr;
a:=70;
textcolor(15);
gotoxy(1,(a div 24)+2);
for y:=1 to 24 do write(round(10*(y/10 - trunc(y/10))):2);
for y:=1 to a do  v[y]:=0;

readln;
repeat
{----------------------------}
posun;
delay(0);
{----------------------------}
vypis;
until keypressed;

end.