Найдите произведение всех чисел от a до b , кратные 4 Подскажите пж
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.