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