begin
  A:=-1;
  B:=10;
  while A<=B do begin
    write b, a;
    a:=a+1;
  end;
end.