Составить задачу для нахождения суммы всех трехзначных натуральных чисел.
var i,s : longint; begin s:=0; for i:=100 to 999 do s:=s+i; writeln(s); end.