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

Question

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

Answer 1

var i,s:integer;

begin

while i<>-5 do begin

readln(i);

if i mod 2=0 then s:=s+1;

end;

writeln(s);

end.