Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и b хотя бы одно четное. была написана следующая программа: var a, b: integer; begin readln(a, b); a : = a mod 2; if a > 0 then b : = b mod 2; if b > 0 then writeln ('четных чисел нет') else writeln ('четное число есть'); end. известно, что программа написана с ошибками. последовательно выполните три : укажите, как, по вашему мнению, нужно доработать программу (не используя слож-ные условия), чтобы не было случаев ее неправильной работы;