Найти сумму (S) и произведение (P) всех чисел от 1 до 100 кратных 3

program zz1;

var p, i, s:int64; / / задаем переменные целого типа

begin

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

for i:=1 to 100 do / / организуем цикл

begin

if i mod 3 = 0 then begin s:=s + i; p:=p * i; end; / / проверяем, если число при делении на три в остатке дает ноль, то добавляем число к сумме и умножаем его на произведение

end;

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

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

end.