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