Как записать сумму всех трёхзначных чисел, делённых на 8,9?

program Test;
var i,c,s : Integer;
begin
    i:=2;
    s:=0;
    c:=i*8*9;
    while c<1000 do
        begin
            writeln(c);
            inc(i);
            s:=s+c;
            c:=i*8*9;
        end;
    write('Summ: ');
    writeln(s);
end.

program Test;
var i,s : Int32;
begin
    s:=0;
    for i:= 100 to 999 do
    begin
        if (i mod 8 = 0) and (i mod 9 = 0) then
        begin
            writeln(i);
            s:=s+i;
        end;
    end;
    write('Summ: ');
    writeln(s);
end.