Склавиатуры вводятся числа до тех пор пока не введено 5. найти колличество четных чисел из введенных .

числа 2 и 4

Мухтар это ты перечислил целые а не четные

var a:array [1..100] of integer; i,n,b:integer;

begin

i:=1;

while a[i]<>5 do

begin

read(a[i]);

i:=i+1;

n:=n+1;

end;

for i:=1 to n do

if a[i] mod 2=0 then b:=b+1;

writeln(b);

end.