Дано натуральное число. А) Определить, есть ли оно четнымб) заканчивается ли оно…

Uses crt; var a: integer; beginreadln (a); if (a mod 2=0) then writeln ('четное') else writeln ('нечетное'); if (a mod 10=7) then writeln ('оканчивается на 7') else writeln ('не оканчивается на 7'); end.