program for2; var a,b,i,n:integer; begin Read(a,b); For i:=a to b do begin WriteLn(i); n:=n+1 end; writeln('n=' , n); end.