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