var
a, b, c, d, kol: integer;
begin
write('Введите четыре числа A, B, C и D через пробел: ');
readln(a, b, c, d);
if a mod 2 = 0 then inc(kol);
if b mod 2 = 0 then inc(kol);
if c mod 2 = 0 then inc(kol);
if d mod 2 = 0 then inc(kol);
if kol >= 2 then writeln('Среди введенных чисел есть два или более четных числа')
else writeln('Среди введенных чисел менее двух четных');
end.
Объяснение:
Другой вариант (покороче):
var
a, b, c, d: integer;
begin
write('Введите четыре числа A, B, C и D через пробел: ');
readln(a, b, c, d);
if ((a mod 2) + (b mod 2) + (c mod 2) + (d mod 2)) <= 2
then writeln('Среди введенных чисел есть два или более четных числа')
else writeln('Среди введенных чисел менее двух четных');
end.
