Ответы и объяснения

2013-02-25T22:21:59+04:00
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.