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

program zz1;

var n, i, p:int64; / / вводим переменную целого типа

begin

p:=1; / / задаем начальное значение для произведения

for i:=34 to 100 do / / организуем цикл, в котором переберем все числа от единицы до двадцати пяти

if i mod 6 = 0 / / проверяем, если число делится на шесть без остатка, то

then n:=n + i / / добавляем его в сумму

else p:=p * i; / / иначе, умножаем его на произведение

writeln (' сумму всех чисел, кратных 6 = ', n); / / выводим ответ

write (' произведение всех чисел, кратных 6 = ', p);

end.