найти сумму всех чисел ,кратных 6 и произведение остальных чисел на промежутке от 34 до100

var    i, s: integer;    p: real;begin    s := 0;    p := 1;    for i := 34 to 100 do        if i mod 6 = 0 then             s := s + i        else p := p * i;        writeln('Сумма чисел кратных 6:', s);    writeln('Произведение чисел не кратных 6:', p)end.