Найти сумму и произведение целых чисел в диапазоне от 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.