1.Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом. 2.Составьте программу, которая определяет, является ли последняя цифра введенного целого числа нечетным числом. 8 класс.

1)
var a: integer;
begin
    write(Введите число: );
    read(a);
    if (a div 10 + a mod 10 + a div 10 mod 10) mod 2 = 0
    then writeln(Сумма цифр четна)                      
    else writeln(Сумма цифр нечетна)
end.
2)
var a: integer;
begin
    write(Введите число: );
    read(a);
    if a mod 2 = 0 then writeln(Последняя цифра числа четная)
                           else writeln(Последняя цифра числа нечетная)
end.