Отыскать сумму всех чисел ,кратных 6 и творение других чисел на

program zz1;

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

begin

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

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

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

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

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

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

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

end.