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

var a, sum, pr: integer;begin pr := 1; for a := 1 to 150 do if a mod 5 = 0 then begin sum := sum + a; pr := pr * a; end ; writeln('Сумма кратных 5 = ', sum, #10, 'Произведение кратных 5 = ', pr);end.