№1 требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и ь хотя бы одно четное. была написана следующая программа: • 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. доработайте эту программу таким образом, чтобы решалась верно. №2 с клавиатуры вводится трёхзначное число. нужно вывести ответ «да», если все его цифры четные, и ответ «нет» в остальных случаях. если введено не трёхзначное число, должно быть выведено сообщение «неверное число».