program for4; var a,b,i,n:integer; begin read(a,b); For i:=a to b do begin WriteLn(i); inc(n); end; WriteLn(n); end.