Составьте программу, определяющую, является ли последняя цифра трехзначного числа нечетным числом

Readln(a);
B := a mod 10;
If b mod 2 = 0 then writeln('четное') else writeln('нечетное')
End.