Найдите сумму и творение целых чисел в спектре [1;150] кратные 5

// Пример программки на языке Паскаль.

var
  i, sum, p : integer;    // объявляем переменные целочисленного типа.
begin
  p := 1;                       // необходимо для подсчета творенья.
  for i := 1 to 150 do     // начало цикла.
   begin
     if (i mod 5 = 0) then  // проверяем является ли текущее число кратным пяти.
       begin
          sum := sum + i;  // считаем сумму чисел кратных 5.
          p := p * i;          // считаем произведение чисел кратных 5.
       end;

  writeln (Сумма чисел в спектре от 1 до 150 кратных пяти равна: , sum); // вывод строчки.
  writeln(Творение чисел в спектре от 1 до 150 кратных 5: , p);    // вывод строчки.
end.