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

var

a, i : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('введите последовательность чисел, окончание ввода - число 5:');

while a 5 do / / начало цикла.

begin

readln (a); / / считываем число, введенное с клавиатуры.

if (a mod 2 = 0) then / / проверяем четность текущего числа.

i : = i + 1; / / считаем количество четных чисел.

end;

writeln ('Количество четных чисел в последовательности равно: ', i); / / вывод строки на экран.

end.