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

2013-03-20T18:20:24+04:00

var sum,i:integer;

begin

sum:=0;

for i:=100 to 500 do

sum:=sum+i;

writeln (i);

end.