uses crt;
var
  a: array[1..100] of byte;
  i,j,n : byte;
  b : boolean;
begin
  clrscr; randomize;
  b:=true; a[1]:=20;
  write(a[1]:4); i:=2;
  repeat
    n:=random(3)+3; j:=1;
    while (j<n) and (i<101) do begin
      if b then a[i]:=a[i-1]+random(6)+1
           else a[i]:=a[i-1]-random(6)-1;
      write(a[i]:4);
      inc(i); inc(j);
    end;
    b:=not b;
  until i>100;
  writeln; readln;
end.