Отыскать сумму(S) и творение (P) всех чисел от 1 до 100

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.