Информатика 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.