编辑代码

Program Ex1；
   Var  n,m,i,ans : integer；
   Begin
      Readln(n,m);  
      i:=n;ans:=0;
while(i<=m)
begin 
  ans:=ans+i;
  i=i+1;
end;
writeln(‘ans=’,ans:5:2)；   
End.