Найти сумму всех чисел ,кратных 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.