Решите задачу (Паскаль)
Найти сумму чисел кратных 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.