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

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