Найти сумму всех целых чисел от a до b.

Uses crt; 
var a,b,s,i:integer; 

begin 
clrscr; 
readln(a); 
readln(b); 
for i:=a to b do 
begin 
s:=s+i; 
end; 
writeln(s); 
readln; 
end.