Решите (паскаль) найти сумму чисел кратных 6

Var
    i, n, s: integer;

begin
    write('n = ');
    readln(n);
    for i := 1 to n do
        if i mod 6 = 0 then
            s := s + i;
    
    writeln(s);
end.