Составьте программу определяющую является ли последняя цифра определенного целого числа нечетным числом. пример ввода: 1245 пример вывода: 5-нечетное число

Ох уж этот Паскаль 

Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')             
                     else writeln(a,' -нечетное число');
end.

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if (A mod 10) mod 2 = 0 then WriteLn(A mod 10,' - чётное число')
else WriteLn(A mod 10,' - НЕчётное число')
End.