Question

найдите произведение всех чисел от a до b , кратные 4
Подскажите пж

Answer 1

begin
var pr:=1;
var a:integer:=readlninteger('Введите а:');
var b:integer:=readlninteger('Введите b:');
for a:=a to b do
if (a mod 4 =0) then pr*=a;
println(pr);
end.