найти сумму чисел которые делятся на n среди всех трехзначных чисел. (паскаль) ​

var i,s:integer;

begin

i:=101;

while i<1000 do

begin

s:=s+i;

i:=i+2

end;

writeln(' : ',s)