Информатика 9 класс
Помогите решить следующие задачи:
1) Заданы 2 числа. являются ли они оба чётными?
2)Заданы 2 числа. является ли хотя бы одно из этих чисел чётным?

1)
var 
    a, b: integer;
begin
    readln(a, b);
    if (a mod 2 = 0) and (b mod 2 = 0) then
        writeln(Оба четные)
    else
        writeln(НЕТ);
end.

2)
var 
    a, b: integer;
begin
    readln(a, b);
    if (a mod 2 = 0) or (b mod 2 = 0) then
        writeln(Является)
    else
        writeln(НЕТ);
end.