var a,k:integer;
begin
writeln ('Введите число');
readln (a);
k:=a mod 10;
if (k mod 2=0) then write ('Последняя цифра четная') else write ('Последняя цифра нечетнфя')
End.