C клавиатуры вводятся 15 чисел. Найти их произведение и кол-во элементов кратных 2(ПАСКАЛЬ, ЦИКЛ "ДЛЯ")
очень надо, плессс

var i,a,b,p:integer;beginp=1; b=0;for i := 1 to 10 do beginbeginWrite('Введите число: '); Readln(a);if (a mod 2 == 0)then begin b:=b+1; p=p*a; end;end;Write('Кол-во чисел, кратных 2 = ',b,' Произведение этих чисел = ',p);end.Если нигде не ошибся, то должно работать именно так

//PascalABC.Net 3.2beginvar prod:biginteger; prod:=1;var count:=0; var r:=0;for var i:=1 to 15 do beginr:=readinteger('Введите число:');prod*=r;if r.Iseven then count+=1;end;print ('Четных:', count, 'Произведение:', prod)end.